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EDITORIAL 


Lieber Leser! 

Es ist das Leid der Besitzer ausster¬ 
bender .Computertypen, weder aus¬ 
reichend Software, noch ausrei¬ 
chend Hardware für Erweiterungen 
und Reparaturen erwerben zu kön¬ 
nen, Der Tronicverbg ist nun selbst 
Opfer dieser Misere geworden. Un¬ 
ser VC 20 ließ sich schon längere 
Zeit nur durch heftiges Schlagen auf 
die Tastatur zu irgendwelchen Re¬ 
aktionen bewegen. Vordem Heft 10 
hat er sich dann endgültig verab¬ 
schiedet, nicht ohne noch dicken 
Unfug in das Listing von SCRUM- 
BLE zu schreiben. Ein neuer VC 20 
mußte also her. Einen "Neuen” gibt 
es sowie nicht - also mußte der 
Kleinanzeigen markt herhalten. Ein 
neuer Gebrauchter verrichtet nun 
also seine Dienste bei uns, damit für 
die VC 20-Besitzer zumindest von 
uns noch "Futter” angeboten wird. 

Damit auch für die alten Systeme 
Platz in unserem Heft bleiben, war 


es notwendig geworden, einen Teil 
der Listings m einem anderen For¬ 
mat auszuanicken. Dies betrifft be¬ 
sonders die Schneider-User, die bis¬ 
her gewohnt waren, ihre Listings im 
Biloschirmforniat vorzufinden. 
Dies ist jetzt leider nicht mehr mög¬ 
lich. Uin 3-spaltig auxdrucken zu 
können, sind jetzt 37 Zeichen auf ei¬ 
ner Listing-Zeile, 

Ab der nächsten Ausgabe veröffent¬ 
lichen wir einen neuen 
Schneider-Checksummer, so daß 
sich die Anzahl der Zeichen sich 
nochmals verringert. Wir bitten die 
Schneider-Besitzer dies bei der Ein¬ 
gabe zu berücksichtigen. 



Uwe Knierim 
Chefredakteur 
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die »andere Seite«. 

* 

Computer kennen 
keine Grenzen 


Ein seltsamer Auftrag. Doch was 
tut man nicht alles Rir ein paar 
Scheine, nur, um sich vom Glück 
eine bescheidene Scheibe abzu¬ 
schneiden. Seit Stacey ihn verlas¬ 
sen hatte, war mit Jim nicht mehr 
viel anzufangen. Seine Arbeit im 
Silicon Valley in der Nähe von 
San Franzisco hatte Jim hingesch¬ 
missen, seinen zweiten Wagen 
hatte er für ein Butterbrot ver¬ 
kauft. Nun wohnte er vorüberge- 
hend bei Chris, einem guten alten 
Freund. An jenem Tag verfolgte 
Chris alles per Funk. Der Typ im 
grauen Anzug hatte gleich be¬ 
merkt, daß Jim ein ruhiger und 
friedlicher Mensch war. Der wür¬ 
de so schnell nicht nachsehen, 
was er bei sich hatte, wenn man 
ihm vorher genug drohen würde. 
Jim sollte nur einen einfachen 
Auftrag erledigen, und schon wä¬ 
re er alle Sorgen los. Der seltsame 
Fremde war Jim vom ersten Au¬ 
genblick an unsympatisch. An 
der Sache war etwas faul, keine 
Frage. Naja, er zahlte gut, allein 
fünf Riesen im Voraus. Und es 
war wirklich nicht vile dabei, nur 
’mal gerade ein Ausflug aufr dem 
Rio Grande. Dieser Fluß faszi¬ 
nierte Jim. Er bildete die Grenze 
zwischen Texas und Mexico. An 
vielen Stellen war der Fluß un¬ 
scheinbar und friedlich, doch wo 
er wild in den Golf von Mexico 
mündet, da konnte er Jim schon 


Ehrfurcht einflößen. Der Him¬ 
mel war klar und ließ das kühle 
Wasser in einem unfassbar schö¬ 
nen blau erscheinen. Jim atmete 
voller Genuß die reine, frische 
Luft ein und versuchte, nicht an 
diesen widerlichen Typ zu 
denken. 

Klar, von Mexico ging es weiter 
nach Cuba. Aber damit hatte Jim 
nichts am Hut. Nein, er sollte das 
Zeug nur rüber nach Mexico 
schäffen. alles weitete war nicht 
sein Problem. Es kam ein leichter 
Wind auf. Was war wohl in den 
Kisten drin? Geld, Schmuck - 
nein, nein das war es nicht. Der 
Typ meinte nur, das würde Jim 
nichts angehen, doch er versicher¬ 
te ihm, daß es keine Drogen oder 
Waffen waren. Seltsam, ein gewis¬ 
ses Ehrgefühl konnte man ihm 
nicht absprechen. Jim hatte eine 
Aversion gegen alles, was mit 
Waffen, Gewalt oder Krieg zu-, 
sammenhing. Seine Welt war die 
Welt der Unterhaltung. Zuhause 
im Silicon Valley.,. Verdammt 
noch mal, das konnte doch wohl 
nicht wahr sein. Maschinenscha¬ 
den, gerade jetzt. Jim stieg herab, 
um Werkzeug zu holen. Da stan¬ 
den sie. Drei Kisten, gerade einen 
halben Meter lang und hoch. Jim 
dachte an diese Krimis, die er frü¬ 
her oft gelesen hatte. In irgendei¬ 
ner Story, er glaubte sie war von 


Poe, schaffte ein Mörder die zer¬ 
stückelte Leiche in... Ruhe! Jim 
versuchte den ganzen Mist zu ver¬ 
gessen. Er sah sich die Maschine 
an. Nur eine Dichtung, na Gott 
sei Dank. Jim atmete auf und 
wollte gerade weiterfahren, als er 
die Flasche Wodka sah. Reiner, 
milder Wodka. Das hätte ihm hel¬ 
fen können, um sich die Kisten, 
den miesen Fremden und alles aus 
dem Kopf zu reißen. Ach was, er 
ließ die Flasche stehen und nahm 
sich fest vor, nachdem er den Job 
erledigt hatte, darauf zurück zu 
kommen. 

Jrm mußte an Stacey denken. Er 
konnte nicht anders. Stacey war 
seine erste und einzige Liebe. Ei¬ 
gentlich wollte Jim nie heira- 
ten.Für ihn hat es immer nur sei¬ 
nen Job im Silicon Valley gege¬ 
ben. Vielen puritanischen Ideen 
war er nicht abgeneigt. Nun ja, ir¬ 
gendwie hatteer schon immer auf 
die Richtige gewartet. Viele 
Freunde von Ji m, auch Chris* hat¬ 
ten sich mit unzähligen Freundin¬ 
nen herumgetrieben. Schließlich 
haben sie sich für eine entschie¬ 
den. das hat schon etwas für sich, 
aber Jim konnte gut auf die Met¬ 
hode verzichten. Stacey war seine 
große Liebe, eine andere würde es 
nicht geben. Er liebte ihre aufge¬ 
schlossene, einmalige Art. Eigent¬ 
lich hatte sie ihn kennegelernt, 
nicht umgekehrt, Jim ergriff sel¬ 
ten die Initiative, doch dieses Mal 
war es anders. Er war fest ent¬ 
schlossen, die Kisten rüber nach 
Mexiko zu schaffen. 

Es wurde nun bald dunkel. Ver¬ 
dammt, Jim hielt es einfach nicht 
mehr aus. Er ging zu den Kisten 
und begann sie zu öffnen. Erst 
vorsichtig, niemand sollte es 
hachher merken. Die Neugier 
wurde immer größer, er riß die 


Bretter einfach auseinander. Er 
konnte es nicht glauben, was er da 
sah : Im ersten Paket eine Compu¬ 
tertastatur, ähnlich einer elektri¬ 
schen Schreibmaschine. Im zwei¬ 
ten Paket war ein kleiner Moni¬ 
tor, er erinnerte ihn an ein 
tragbares Fernsehgerät. Im letzten 
Paket schließlich waren Disket¬ 
ten und ein Laufwerk, um die auf 
den Scheiben gespeichenen Infor¬ 
mationen in den portablen Com¬ 
puter zu lesen. Tja, Jim kannte 
sich mit diesen Dingern gut aus. 
Er baute das System hastig auf, 
steckte hier und da ein Kabel ein 
und schaute gespannt auf den Mo¬ 
nitor, um die gespeiebnen Daten 
zu sehen. Der Monitor blieb leer. 
Jim konnte sich kaum vorstellen, 
daß er einen Fehler gemacht hat¬ 
te. Er überlegte sich schon, ob er 
den ganzen Kram wieder ver¬ 
packen sollte, als plötzlich eine 
Nachricht auf dem Bildschirm er¬ 
schien: 

- top of form - 
Hallo! 

Wie ich sehe, haben Sie Ihre Auf¬ 
gabe gut erfüllt, Oder sollten Sie 
etwa nachgesehen haben, bevor 
sie in Mexico waren??? Wie dem 
auch sei, wir sind inzwischen an 
einer anderen Stelle rüber gekom¬ 
men, die Typen waren ja mit Ih¬ 
nen beschäftigt... 

Anscheinend leben Sie ja noch, al¬ 
so nichts für ungut* Übrigens ha¬ 
ben wir fast das gleiche Zeugs mit¬ 
genommen, was Sie an Bord ha¬ 
ben. Nur die Disketten unter¬ 
scheiden sich von ihren, unsere 
haben nämlich so einige interes¬ 
sante Informationen über gewisse 
amen kanisch e Indust rie-Kon- 
zerne gespeichert. Die Computer- 
ranlage dürfen Sie als kleine Be¬ 
lohnung natürlich behalten. !!! 
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Am 2. November 1986: 
Vierte Münchner 


_report 

Die Gewinner 


Elektronik-Börse 


Mit dieser Veranstaltung sollen 
wieder Hobby-E lektroniker, 

Computer-Fans und Tüftel-Profis 
angesprochen werden. Die Grup¬ 
pe der Einsteiger bleibt bei den 
Organisatoren ebenfalls nicht un¬ 
berücksichtigt > 

Tips und Tricks ftir Einstieg und 
Erweiterung geben wieder die 
Vertreter der Computer-Clubs 
und Firmen an Ihren Info-Stän¬ 
den. Für günstige Angebote aus 
dem Bereich der Büro- und Frei¬ 
zeitelektronik sorgen wieder zahl¬ 
reiche Verkausstände der privaten 
Anbieter. Aufgrund der guten Er¬ 
folge der vorangegangenen ^Elek¬ 
tronik-Flohmärkte“ ist auch die¬ 


ses Mal mit einem starken Publi¬ 
kumszuspruch zu rechnen. 

Nähere Information und 
Standreservierung sind mög¬ 
lich unter den Rufnummern 
089/6519030 oder 1495190. Die 
Standgebühr beträgt DM -30,- 
für Privatleute und DM 90,- für 
Firmen-Info-Stände. Der Besu¬ 
chereintritt kostet 3,- DM. 

Standort der 4. Münchner Elek¬ 
tronik-Börse ist der Festsaal des 
„Schwabinger Bräu“ an der 
Münchner Freiheit, Leopold¬ 
straße 82. 


Forsetzung von Seite 4: 

Den restlichen Kies hatten wir lei¬ 
der nicht klein. Sie sind uns hof¬ 
fentlich nicht böse.... 

- bottom of form - 

Nun war alles klar. Jeden Mo¬ 
ment würden Grenzbeamte oder 
wer weiß Gott was für Typen 
hier auftauchen. Die verdammten 
Schweine hatten denen einen Tip 
gegeben, wo Jim war, und sie 
selbst würden sich unauffällig ab¬ 
setzen. Jim sprang sofort auf und 
sah sich um. Tatsächlich, da ka¬ 
men schon zwei Boote. Nein, das 
war keine Polizei. Wahrschein¬ 
lich hatte so mancher Industrie¬ 
boß einiges zu verheimlichen und 
erledigte das selbst auf seine Art. 
Die würden zu sch lagen bevor Jim 
auch nur ein Wort zur Erklärung 
ausgesprochen hätte. Jim war der 
Koder, den die Typen auch sofort 
schlucken würden. 

So nicht! Jim wußte sofort, was 
zu tun war. Zuerst schmiß er wü¬ 
tend diesen verdammten Schrott 
über Bord. Dann alarmierte er 
über Funk Chris. Der kapierte 
schon und würde den Rest erledi¬ 
gen. Dann holte er zum ersten 
Mal alles aus den Maschinen raus, 
was sie brachten. Schließlich hatte 
er ein gutes Stück Vorsprung. 


Wahrscheinlich hatten die Idioten 
nicht damit gerechnet, daß Jim so 
früh den Mut aufbringen würde, 
die Kisten zu öffnen. Er schaffte 
es tatsächlich. In einer halsbreche¬ 
rischen Fahrt erreichte er das gu¬ 
te, texanische Land, er hatte 
Glück. Ein freundlicher Autofah¬ 
rer nahm ihn mit. Am nächsten 
Abend saßen Jim und Chris zu¬ 
sammen in der Kneipe nicht weit 
von El Paso. An der Wand hing 
zwischen einem Sattel un einer 
Winchester ein Fernsehgerät. Der 
Win wartete schon gespannt auf 
den alten Western "Rio Bravo". 
Jim und Chris waren die einzigen 
Gäste. In den Nachrichten wurde 
berichtet, daß einige Industrie¬ 
spione gefaßt wurden. Auch eine 
Reihe von lang gesuchten Killern 
konnten festgenommen werden. 
Angeblich sollten sie im Auftrag 
von schwerreichen Firmenchefc 
gearbeitet haben. Die Untersu¬ 
chungen waren noch nicht abge¬ 
schlossen. Chris hatte gute Arbeit 
geleistet und die Polizei rechtzei¬ 
tig alamiert. Doch für Jim war es 
ein noch viel glücklicherer Tag, 
als er zu hoffen gewagt hätte. Sta- 
cey sind in der Tür, lächelte, lief 
auf Tom zu. Sie umarmte und 
klüßte ihn. Chris hatte tatsächlich 
gute Arbeit geleistet und nicht 
nur die Polizei benachrichtigt! 

Patrick Schmitz 


des Preisrätsels 
aus Senderheft 38 

Die 10 Hauptgewinner sind: 

Klaus Klamm, 7000 Stuttgart 75 
Erich Euch«, 2390 Flensburg 
Carsten Sondmacher, 3160 lehrte 
Gent Maul, 4708 Kamen 
Arvid Schramm, 2984 Hagermarsch 
Josef Wittmann, 8483 Vohenslrauß 
Themas Inte, 2817 Dörverden-Stedorf 
Alexander Meyer, 4600 Dortmund 
Ulrich Mecklenbrauck, 4700 Hamm 1 
Peter Krick, 6362 Wöllstadt 


Die Schauspielerin hieß: Madonna! 



So war das bestimmt nicht gemeint, als in 
der Anleitung stand, daß man die grünen 
Männchen abschießen seil. 


Klaus Klamm 
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Neues vom Software-Markt 


Mission Elevator“ oder Der Kampf im Fahrstuhl 


Programm: Mission Elevator, 
System: C-64, Schneider, Spec¬ 
trum (in Kürze), Preis: Kassette 
35,- DM, Diskette 49,- DM, 
Hersteller: U.S. Gold, Vertrieb: 
Micropartner, Gütersloh 

Eine Katastrophe bahnt sich an! In 
einem 64-stockigen Hotei wurde 
eine Bombe entdeckt, die jeden 
Moment zu explodieren droht. Es 
ist bekannt, daß sich das Steuer¬ 
werk der Bombe im obersten 
Stockwerk des Hotels befindet. 


Aber der betreifende Steuercom- 
uter kann nur mit einem Ge- 
eimcodc ausgeschaltet werden. 
Schlüpfen Sie in die Rolle des 
„Hausdetektives“ und begeben 
Sie sich auf die Suche nach dem 
Code. Doch Eile ist geboten, denn 
der Countdown läuft! Soweit die 
Story von dem neuen Action-Ad- 
venture Mission Elevator von 
U.S. Gold. 

Die ganze Angelegenheit ist na¬ 
türlich nicht so einfach wie sie aus¬ 
sieht. Im Gegenteil: zahlreiche 


Gegenstände müssen gefunden, 
Hindernisse überwunden und 
Gefahren ausgewichen werden. 
Zu Beginn ist es ratsam zum Por¬ 
tier zu gehen und sich den Univer¬ 
salschlüssel fiir die Zimmertüren 
zu holen. Zusätzlich müssen auch 
Karten- und Würfelspiele be¬ 
herrscht werden, um an den Wa¬ 
chen vorbei, in die nächste Etage 
zu gelangen. Ganz zu schweigen 
von den Agenten, die alles versu¬ 
chen, Sie von Ihrer Mission abzu¬ 
bringen. 


Mission Elevator besitzt eine 
detaillierte Grafik; Uhren, Ge¬ 
mälde an den Wänden, Stühle 
und andere Hoteleinrichtun¬ 
gen sind realistisch dargestellt. 
Weiterhin zeichnet sich dieses 
Programm durch eine gelunge¬ 
ne Animation der einzelnen 
Personen und durch einen zügi- 
en Spielablauf aus. Ein Spiel, 
as demnächst bestimmt in den 
TOP TEN zu finden sein wird. 


„I. C. U. P. S.“ - Noch ein Weltraumabenteuer! 


Programm: I. C. U. P. S., Sy¬ 
stem: Spectrum, C-64/128, 
Preis: 56,- DM für Diskette, 39,- 
DM Kassette, Hersteller: Odin 
Computer Graphics Ltd., The 
Podium, Steers House, Can- 
ning Place, Liverpool, Mersey- 
side, L 18HN, England 

Als Sonderagent-Anwarter der 
internationalen Kommission der 
Universellen Lösung von Proble¬ 
men (I.C.U.P.S.) müssen Sie an ei¬ 
ner Computersimulation teilneh¬ 


men, die zu einer erfolgreichen 
Durchführung Können, Ge¬ 
schicklichkeit und Reaktions¬ 
schnelligkeit unter Streßbedin- 
gongen erfordert. So wird bei¬ 
spielsweise die Steuerung eines 
Es körte nr au msc h iffes ve Han gt, 
wie Sie zum Schutz von Botschaf¬ 
tern aus den Lichtwelten verwen¬ 
det werden. Der Flugkörper muß 
durch drei Abschnitte eines 
Raumtunnels fliegen. Bereits in 
diesem Abschnitt treten durch das 
Erscheinen feindlicher Raum¬ 


schiffe die ersten Gefahren auf. 
Sind die drei Abschnitte durch¬ 
quert, müssen vier Teile einer 
Bombe, die innerhalb des Raum¬ 
schiffes versteckt wurden, wieder 
gefunden werden. Um dieser Auf¬ 
gabe gerecht zu werden, steuert 
der Spieler das neuste Modell der 
Anthroboter: einen DEEN Mo¬ 
dell 2. 

Innerhalb dieses Levels bietet die 
Commodöre-Version in der unte¬ 
ren rechten Ecke des Bildschirms 
ein besonderes Feature: eine be¬ 


wegte Mondlandschaft, einen 
sprechenden Kopf und andere 
grafisch eindrucksvolle Bilder. 

Fazit:I.C.U.P.S. ist ein sehr auf¬ 
wendig programmiertes Spiel, 
das von der Spielidee sicher 
nichts neues bringt, doch durch 
die cindnicksvolle Grafik und 
die tollen Effekte ist dieses Pro¬ 
gramm sicherlich „spielens- 
wert“. 


Wieder mal ein Höhlenabenteuer 
The very big Cave Adventure 


Programm: The very big Cave 
Adventure, System: Spectrum, 
C-64, Schneider, Preis ca. 30,- 
DM, Hersteller: CRL Group, 
CRL House, 9 Kings Yard, Car- 
penters T Road, London E15 
2HD* England 

Vor Ihnen liegt nun das erste 
Computer-Adventure, - 
Was, das glauben Sie mir nicht? 
Nun, es ist eine nicht ganz ernst zu 
nehmende Neufassung des ersten 


Abenteuers piek! Zur Story: Ir- 
endwo in einem kleinen Wald 
efindet sich ein „idyllisches 1 * Tal, 
In diesem besagten Tal befindet 
sich wiederum ein in einem Fluß¬ 
bett eingelassenes Gitter, durch 
das man in die geheimnisvollen 
Gänge und Höhlen gelangt, die 
den Abenteurer zu Schätzen und 
verborgenen Kostbarkeiten füh¬ 
ren. 

Fazit: Da dieses Adventure aus 
der Feder des ST. BRIDES Team 


stammt, ist Humor „im Preis 
inbegriffen“. Durch diesen Hu¬ 
mor und eine Supergrafik (jeder 
Ort besitzt seine eigene Charak¬ 
teristische Grafik!) entsteht ei¬ 
ne sehr ansprechende Atmos¬ 
phäre. THE VERY BIG CAVE 
ADVENTURE wurde mit dem 
Quill, Illustrator und PATCH 
geschrieben. Das Ergebnis kann 
sich sehen lassen. 


Programm- 
auforen 
auf gepaßt! 

Bitte legen Sie Ihrer 
Programmbewerbung 
einen adressierten 
und ausreichend 
frankierten DIN-A5 
Umschlag bei. 

Vielen Dank! 


mit 
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So bestellen Sie: 

Der Mindestbestellwert von Software 
liegt bei 15.00 DMI 

Sie können das Geld in bar oder per 
Schecklhrerschriftlichen Bestellung 
beilegen. 

Bel Nachnahme-Versand werden 
4.00 DM für Porto-Kosten erhoben. 

Auslandsbestellungen werden nur 
per Vorauskasse entgegengenom¬ 
men! 

Rufen Sie uns doch einfach einmal 
an! Unsere Telefone sind wochentags 
ab 9.30 Uhr für Sie zu erreichen! 


ANDREAS BACHLER 
POSTFACH 429 
D-4290 BOCHOLT 

V® (02871) 183088 J 

V - 


Wir haben die Software, die Sie suchen !^ 


Commodore 64/128 

Kassette 

Dragons Lair 32,95 DM 

Five-a-side-soccer 14.95 DM 

25.00 DM 
25,00 DM 

38.95 DM 

32.95 DM 

32.95 DM 

38.95 DM 


international Karate 
Knight Games 
Knight Rider 
Miami Vice 
Mission Elevator 
Newsroom 
Nexus 
Ping Rang 
Tau Ceti 
The fast V8 
Warriors of Rass 


25.00 DM 
25,00 DM 

32.95 DM 

14.95 DM 

38.95 DM 


Diskette 

38,95 DM 


36.95 DM 

44.95 DM 
44,95 DM 

44.95 DM 

149.95 DM 

48.95 DM 

48,95 DM 


Commodore 16/116/PLUS4 


54,95 DM 

Schneider CPC (464, 664,6128) 

Kassette Diskette 

29,00 DM 44,95 DM 
25,00 DM 


Batman 
Exploding Fist 
Green Beret 
Jack, the Nipper 
Movie 
Ping Bong 
Rock 'n Wreslle 
Saboteur 
Spindiay 
Tau Ceti 
Vie ar Kung-Fu 
Winter Games 


25,00 DM 

32.95 DM 

25.95 DM 
29.00 DM 
25.00 DM 

32.95 DM 
25,00 DM 

29,00 DM 
32,95 DM 


ACE 

Airwolf 

Bandits at Zero 
Beach Head 
Bomb Jack 
Classics I + 11 
Commando 
Favotirite 4 
Formula 1 

Frank Bmno's Boxfng 

Gunslinger 

International Karate 

Kikstart 

Leapin Laute 

P&int Box 

Robo Knight 

Scramble 

Yie ar Kung-Fu 

Winter Olympiade 


Kassette 

32.00 DM 
29.00 DM 

14.95 DM 

24.95 DM 
29,00 DM 

je 34,00 DM 

26.95 DM 
32,00 DM 

9,95 DM 
25,00 DM 
25,00 DM 

24.95 DM 
9,95 DM 

29,00 DM 
25,00 DM 
9,95 DM 
14,95. DM 
29,00 DM 
29,00 DM 


32.95 DM 

44.95 DM 

38.95 DM 

32.95 DM 

32.95 DM 

34.95 DM 

54.95 DM 


ATARI ST (260, 520,1040) 

Diskette 

Borrowed Time 59,00 DM 

Leader Board (Golf] 75,00 DM 


Mindshadow 
Operation Hongkong 
The Pawn 
Winter Games 


59,00 DM 
59,00 DM 
75,00 DM 
79,00 DM 


Fordern Sie kostenloses Informationsmaterial über unser Liefer-Programmfürfolgende 
Computer an: COMMODORE 64/128, COMMODORE 16/116/PLUS 4, SCHNEIDER 464/ 
664, ATARI 130XE/26QST/520ST/800XL, SINCLAIR SPECTRUM und MSX. 

Bitte geben Sie immer Ihren Computertyp an! 







Hardwareservice 
des Ironie-Verlags 

Unser 1. Angebot: 

64 K-Speichererweifcrung für C16 + C116 

Bausalz - bestehend aus: allen Bauteilen and ausführlicher A n l ei tun g , 
umschaltbar 64K/16K — geliefert in stabiler Hartbex. 

Bitte Compufertyp angetan I B«Stell-llr. HWS-1-786 45,— DM + NN (bei Vorfcaisa + 2,- DM Versand) 
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klartext 


Neu für alle Commodore Rechner C 64/VC 20 und C 16 


Auf vielfachen Leserwunsch haben wir uns entschlossen, unser Druckverfahren für 

Com modo re-Listings zu andern. 

Steuerzeichen sowie alle Grafikzeichen werden zukünftig durch Klartext ersetzt. 
Der Ausdruck ist kompatibel zum bisherigen Druckverfahren, ein neuer Checksum¬ 
mer ist aus diesem Grund nichl erforderlich, 

Eingabehinweise für alle Commodore Rechner! 

Wer sich schon etwas näher mit den Commodore Rechnern befaßt hat, wird sicher¬ 
lich wissen, daß der Grafiksatz des C 64 sehr viele ähnliche Symbole enthält. Aus die¬ 
sem Grund ist es oft sehr schwer, einzelne Zeichen, wie zum Beispiel horizontale Li¬ 
nien, voneinander zu unterscheiden. Besonders macht sich dieser Nachteil in Listings 
bemerkbar, welche die ßildschirmgrnfik mit PRINT-Zeilen aufbauen. 

Bisher haben wir in unserem Ausdruck lediglich die Slcuersequenzen wie CTRL-RVS 
QN oderCTRL-BLUE durch Klartext ersetzt, ab dieser Ausgabe werden jedoch auch 
alle Grafikzeichen durch ein Schlüssekode ersetzt. Durch diese Methode sind Ver¬ 
wechselungen praktisch völlig ausgeschlossen. 

Wie arbeitet unser Klartext? 

Wer schon nach dem alten Verfahren Programme eingegeben hat, wird sicherlich kei¬ 
ne Schwierigkeiten mit der Umstellung naben. 

Pur die neuliinzugckommenen Leser erkläre ich jedoch das Verfahren noch einmal 
grundlegend. 

Alte sogenannten Steuerzeichen (z.B. eine Farbe) sowie ein Grafikzekhen, werden in 
unseren LISTINGS durch ein CODE WORT, welches die Ta-ste bzw, Tastenkombi¬ 
nation kennzeichnet, ersetzt. Tine Tabelle der Tasten funkt Ionen finden Sie in jedem 
Tronic-Magazin (z.B, Computronic o. Compuie Mit). Das folgende Bei spiel zeigt den 
Unterschied zwischen unserem alten und dem neuen Druckverfahren: 

C64 LISTING MIT CHECKSUMMEN <C VI.O) 


10 REM BISHERIGER AUSDRUCK 

<110> 


20 PRINT» CP0JW4>1..1" 

<52 > 


30 PRINT»#!--1 h 

<85 > 


40 PRINT» rS^r^l " 

<149> 


50 PRINT»ENDE" 

<246> 


ENDE DES LISTINGS 



[DRUCK;F.B.3 



C—64 LISTING + CHECKSUMMEN (C VI.0) 



10 REM NEUER AUSDRUCK 


<162> 

20 PRINT» CD0HH4 SO CY9 SP3" 


<52> 

30 PRINT»CS£ SB SC SD SE SF SG SM S2 SJ 

SKV 

<B5> 

40 PRINT »CCA CB CC CD C£ CF C£J" 


<149> 

50 PRINT»ENDE» 


<246> 


ENDE DES LISTINGS 
CDRUCK:F.B./O.S.3 


Wie in dem Beispiel zu erkennen ist, werden alle Sic uertasten durch die entsprechen¬ 
de Tastenbeschreibung markiert. Das Wort DOWN steht in diesem Fall für Cursor 
nach untern Die Zahl dahinter gibt an wie oft die Taste betätigt werden muß. In unse¬ 
rem Beispiel müßte also die Taste CURSOR abwärts viermal betätigt werden. Die ge¬ 
naue Beschreibung, welche Taste gemeint ist, entnehmen Sic bitte der Klartext- 
Tabelle, welche am Ende dieser Beschreibung abgedruckl ist. Achtung für ClG und 
C64 existieren zwei verschiedene Tabellen! 

Wie ebenfalls aus dem Beispiel zu erkennen ist, werden auch alle Grafikzeichen durch 
einen 2-Buchstaben-Code ersetzt. Der erste Buchstabe ist entweder ein »S« oder ein 
»C«. Das »C« steht für die »COMMODORE TASTE« und das »S« für die »SHIFT 
TASTE«. Der zweite Buchstabe bezeichnet die Aufschrift der Taste. Das »SA« in un¬ 
serem Beispiel bedeutet also, daß die Taste SHIFT zusammen mit dem Buchstaben 
*A« betätigt werden muß. *C+« würde bedeuten, daß die Taste COMMODORE zu¬ 
sammen mit dem PLUS Zeichen gedrückt wird. Wird direkt hinter dieser Buchsia- 
benkomhination eine Zahl angegeben, so gibt diese die Anzahl der jeweiligen Zeichen 
an. Das Zeichen COMMODORE Y wunde also in unserem Beispiel 9 mal eingege¬ 
ben. Durch diese Methode entfällt zukünftig das lästige Abzahlen von mehrfachen 
Zeichen. 

Sollten Sie einmal nicht wissen, welche Taste gemeint ist, so hilft Ihnen ein Blick in 
unsere Klartext-Tabelle weiter. 

Um im Listing Tastenbezeichnungen von normalen Zeichen zu unterscheiden, wer¬ 
den alle Tastcnktmn Zeichnungen in geschweifte Klammern gesetzt. Diese dürfen 
sdb$tverst!ndlich nicht eingegeben werden. Auch Leerzeichen innerhalb geschweif¬ 
ter Klammem dienen nur zur Trennung einzelner Tastenfunktionen und dürfen 
ebenfalls nicht eingegeben werden, Um die Tastenfunktionen nach besser hervorzu¬ 
heben, werden diese in unterst riebe ne r Kursivschrift (Schrägschrift) darges teilt. Alk 
Zeichen außerhalb der geschweiften Klammem werden normal abgedruckt und auch 
eingegeben, 

Auf Jen ersten Blick hört sich das sicher erw r at, kompliziert au, ist jedoch in der Praxis 
ganz einfach. Wenn man sich erst einmal an diu in Klartext geschriebenen Zeichen 
gewöhnt hat, wird man den großen Vorteil dieser Schreibweise erkennen. 

Frank Brall 


Noch eine wichtige Anmerkung ! 

Aus technischen Gründen können drei Zeichen von unserm Ausgabegerät nicht ver¬ 
arbeitet werden. Diese Zeichen sind: Pfeil nach links, engl. Pfund, Pfeil nach oben 

_Steht für den Pfeil nach links 

\ Steht für das englische Pfund-Symbol 
* Steht für den Pfeil nach oben 

Klartext-Tabelle für Commodore 64 und VC 20 


DOWN 

CURSOR ABWÄRTS 

TASTE NEBEN RECHTEN SHIFT 

UP 

CURSOR HINAUF 

HIT-TASTE 8c TASE NEBEN 

RECHTEM SHIFT 

CLR 

CLEAR SCHIRM 

SHIFT-TASTE 8c 2. TASTE GANZ RECHTS OBEN 

INST 

EINFÜGEN 

SHIFT-TASTE 8c TASTE GANZ RECHTS OBEN 

HOME 

CURSOR IN ECKE 

2.TASTE VON GANZ RECHTS OBEN 

DEL 

DELETE 

TASTE GANZ RECHTS OBEN 

RIGHT 

CURSOR RECHTS 

TASTE GANZ RECHTS UNTEN 

LEFT 

CURSOR LINKS 

SHIFT-TASTE 8c TASTE UNTEN RECHTS 

SPACE 

LEERZEICHEN 

LEERTASTE (GRÖSSTE TASTE) 

Fl 

FUNKTIONSTASTE 

FUNKTIONSTASTE Fl 

F2 

FUNKTIONSTASTE 

FUNKTIONSTASTE F2 

F3 

FUNKTIONSTASTE 

FUNKTIONSTASTE F3 

F4 

FUNKTIONSTASTE 

FUNKTIONSTASTE F4 

F5 

FUNKTIONSTASTE 

FUNKTIONSTASTE F5 

F6 

FUNKTIONSTASTE 

FUNKTIONSTASTE F6 

F7 

FUNKTIONSTASTE 

FUNKTIONSTASTE F7 

F8 

FUNKTIONSTASTE 

FUNKTIONSTASTE F8 

BLACK 

SCHWARZ 

CONTROL-TASTE 8c 1 

WHITE 

WEISS 

CONTROL-TASTE 8c 2 

RED 

ROT 

CONTROL-TASTE 8c 3 

CYAN 

TUERKIS 

CONTROL-TASTE 8c 4 

PURPLE 

PURPUR 

CONTROL-TASTE 8c 5 

GREEN 

GRÜN 

CONTROL-TASTE 8c 6 

BLUE 

BLAU 

CONTROL-TASTE 8c 7 

YELLOW 

GELB 

CONTROL-TASTE 8c 8 

RVSON 

INVERSE EIN 

CONTROL-TASTE 8c 9 

RVSOFF 

INVERSE AUS 

CONTROL-TASTE 8c 0 

ORANGE 

ORANGE 

COMMODORE-TASTE 8c 1 

BROWN 

BRAUN 

COMMODORE-TASTE 8c 2 

LIG.RED 

HELLROT 

COMMODORE-TASTE 8c 3 

DGREY 

DUNKELGRAU 

COMMODORE-TASTE 8c 4 

MGREY 

MITTELGRAU 

COMMODORE-TASTE 8c 5 

LIG.GREEN 

HELLGRÜN 

COMMODORE-TASTE 8c 6 

LIG.BLUE 

HELLBLAU 

COMMODORE-TASTE 8c 7 

HGREY 

HELLGRAU 

COMMODORE-TASTE 8c 8 

CTRL... 

CTRL-ZEICHEN 

CONTROL-TASTE UND DAS ... ZEICHEN 

s... 

GRAFIKZEICHEN 

SHIFT-TASTE UND DAS ZEICHEN 

C ... 

GRAFIKZEICHEN 

COMMODORE-TASTE UND DAS ... ZEICHEN 

SHIFTSPACE UNSICHTBARER CODE 

SHIFT-TASTE UND SPACE 


Klartext-Tabelle für Commodore C16 und Plus 4 


DOWN 

UP 

CLR 

INST 

HOME 

DEL 

RIGHT 

LEFT 

SPACE 

Fl 

F2 

F3 

F4 

F5 

F6 

F 7 

F8 

BLACK 

WHITE 

RED 

CYAN 

PURPLE 

GREEN 

BLUE 

YELLOW 

RVSON 

RVSOFF 

ORNG 

BRN 

YL.GN 

PINK 

BL.GRN 

L.BLU 

D.BLU 

L.GRN 

CTRL... 

S... 

C... 

FLASHON 

FLASHOFF 

SHIFTSPACE 


CURSOR ABWARTS 
CURSOR HINAUF 
CLEAR SCHIRM 
EINFÜGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 

CURSOR LINKS 

LEERZEICHEN 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

FUNKTIONSTASTE 

SCHWARZ 

WEISS 

ROT 

TUERKIS 

PURPUR 

GRÜN 

BLAU 

GELB 

INVERSE EIN 

INVERSE AUS 

ORANGE 

BRAUN 

GELBGRÜN 

ROSA 

BLAUGRÜN 

HELLBLAU 

DUNKELBLAU 

HELLGRÜN 

CTRL-ZEICHEN 

GRAFIKZEICHEN 

GRAFIKZEICHEN 

BLINKEN EIN 

BLINKEN AUS 

UNSICHTBARER CODE 


TASTE NEBEN INST DEL; RECHTS OBEN 

3. TASTE NEBEN DOWN VON RECHTS OBEN 
TASTE ÜBER RETURN ZUSAMMEN MIT SHIFT 
SHIFT-TASTE 8c TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 
TASTE GANZ RECHTS OBEN 

4. TASTE VON RECHTS OBEN 

5. TASTE VON RECHTS OBEN 
LEERTASTE (GRÖSSTE TASTE) 
FUNKTiONSTASIE Fl (VORHER DEFINIEREN) 
FÖNKTIONSTASTE F2 VORHER DEFINIEREN) 
FUNKTIONSTASTE F3 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F4 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F5 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F6 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F7 (VORHER DEFINIEREN) 
FUNKTIONSTASTE F8 (VORHER DEFINIEREN) 
CONTROL-TASTE 8c 1 
CONTROL-TASTE 8c 2 
CONTROL-TASTE 8c 3 
CONTROL-TASTE 8c 4 
CONTROL-TASTE & 5 
CONTROL-TASTE 8c 6 
CONTROL-TASTE 8c 7 
CONTROL-TASTE 8c 8 
CONTROL-TASTE & 9 
CONTROL-TASTE 8c 0 
COMMODORE-TASTE & l 
COMMODORE-TASTE 8c 2 
COMMODORE-TASTE 8c 3 
COMMODORE-TASTE 8c 4 
COMMODORE-TASTE 8c 5 
COMMODORE-TASTE & h 
COMMODORE-TASTE 8c 7 
COMMODORE-TASTE & 8 
CONTROL-TASTE UND DAS ... ZEICHEN 
SHIFT-TASTE UND DAS ... ZEICHEN 
COMMODORE-TASTE UND DAS ... ZEICHEN 
CONTROL-TASTE UND 
CONTROL-TASTE UND 

SHIFT-TASTE UND SPACE 
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report 


Neu: Klarsicht "Joystick von Dynamics 


Schwankungen und Störungen in 
der Netzspannung sind oft Ursa¬ 
che für Ausfälle in Computers/- 
stemen - D u rch elekt ros tat i sc h 
oder elektromagnetisch induzier¬ 
te Spannungen können Compu¬ 
ter beschädigt oder gar zerstört 
werden. Bildschirmanzeigen oder 
Speicher werden zum Beispiel oh¬ 
ne erkennbaren Grund gelöscht. 
Die Ursache hierfür sind meistens 
nicht entstörte Stromversorgun¬ 
gen, dh. ganz normale elektroni¬ 
sche Anschlüsse in Büros. 

Die Gerätehersteller versuchen, 
dieses Problem mit Filtern zu lö¬ 
sen, die sie in die einzelnen Geräte 
einbauen. Störungen, die durch 
die Verbindungen mehrerer Ge¬ 
räte entstehen, können dadurch 
jedoch nicht verhindert werden. 


Außerdem schaden billige Stö¬ 
runterdrücker, die mit einfachen 
Filtern arbeiten, manchmal mehr 
als sie nützen. So z.B. wirken Fil¬ 
ter, die nur auf lineare und konti¬ 
nuierlich ansteigende Impulse an- 
sprechen, oft zu spät. 

Die SICOS Lösung: Der in die 
Stromschiene eingebaute Netzfil¬ 
ter, mit seinen hervorragenden 

nieri allfällige Störeinflüsse und 
ist somit ein absolut notwendiger 
Bestandteil am Computerarbeits¬ 
platz geworden. 

Für technische Einzelheiten wen¬ 
den Sie sich bitte an: 

SECOM AG 
INTERNATIONAL 
Einsiedlerstraße 31 
CH -,8820 Wädenswil 


Die DYNAMICS marketing 
GmbH läßt sich - rein technisch 
gesehen - in die Karten gucken: 
Den erfolgreichen und beliebten 
Com petition-Pro Joystick gibt es 
jetzt im transparenten Kunststoff¬ 
gehäuse. Für Spiele-Fans mit Si¬ 
cherheit ein echter High-Tech- 
Schlager! 

Der Competkion-Pro ist tierisch 
robust, schnell und präzise. 
Spiele-Freaks wissen das. 


ist Joystick-Technik sichtbar ge¬ 
macht und man kann walirend 
des Spiels sehen wie’s funktio¬ 
niert. Natürlich ist auch der tran¬ 
sparente Competkion-Pro ausge¬ 
stattet mit Mikroschaltern und 
8-Wege-Steuerung. 

Eine orginelle Idee, die so richtig 
in unsere High-Tech-Zeit paßt. 

Unverbindliche Preisempfeh¬ 
lung: 49,-DM 


DYNAMICS marketing GmbH 
Friedensallee 35 
2000 Hamburg 50 


Neu am Competition Pro von 
Dynamics ist aber jetzt das tran¬ 
sparente Kunststoffgehäuse. Da 


EDV-Listen 

»umgänglicher« 


Haben Sie sich auch schon einmal 
über das Hantieren mit Compu¬ 
terlisten geärgert? 

Neu im Döbbelin & Boeder Sor¬ 
timent: 

Disky Paper-File & Disky Data- 
Binder - macht EDV-Listen "um¬ 
gänglicher”! 

Ablegemappen mit verstellbaren 
Aufreihfäden für ungetrennte 
EDV- Listen. Aus unverwüstli¬ 
chem Kunststoffmaterial mit 
Indexfenster-/Karte zur Beschrif¬ 
tung. Sie sind ideal für den tägli¬ 
chen Umgang mit Datenaus¬ 
drucken. Bei Disky Paper-File, 


für 8-12” x 240-250 mm EDV- 
Listen, 25 mm dick, lassen sich die 
Listen leicht umblättern oder ent¬ 
nehmen, alle Daten sind auch an 
der Heftung deutlich lesbar. Be¬ 
sonders geeignet für Besprechung¬ 
sunter lagen und zum Mknehmen 
in der Aktentasche. 

Disky Data-Binder, für 8-12” 
160-250 mm EDV-Listen, 60 mm 
dick, paßt durch die verstell- und 
versenkbaren Aufhängeschienen 
in jedes Archiv-System So kön¬ 
nen die Listenausdrucke von bei¬ 
den Seiten entnommen werden. 

Das spart Zeit beim Arbeiten. 


Netzstörungen ade 
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leserbriefc 


Sehr geehrte Dame, 

sehr geehrter Herr, 

als ich am 21.6. Ihre Zeitschrift 

COMPUTE MIT kaufte, habe 

ich mich sehr über die Speicherer- 
Weiterung für den C16 gefreut. 
Und als ich dann in der Sonde¬ 
rausgabe den Autostarter fand, 
war ich völlig futsch! 

Ich habe mir aber auch die Anzei¬ 
ge über Autorenrechte durchgele¬ 
sen und habe disbezüglich einige 
Fragen: 

- Bin Ich im Besitz eines Copy¬ 
rights (c), sobald ich der alleinige 
Autor eines Programms bin? 

- Was muß ich tun, wenn ich ei¬ 
nen Teil eines aus einer Compu¬ 
terzeitschrift stammenden Pro¬ 
gramm übernehmen will? 

Ich hoffe Sie können mir helfen. 

Ferber ; Baden-Baden 


Hier die Antworten zu den Fra¬ 
gen, womit wir Ihnen hoffent¬ 
lich weiter helfen können: 

zur ersten Frage: Natürlich sind 
Sie im Besitz eines Copyrights, 


wenn Sie der alleinige Autor eines 
Programms sind. Sollten Sie aller¬ 
dings Ihr Programm zur Veröf¬ 
fentlichung an eine Zeitschrift 
verkauft haben, liegen natürlich 
die Rechte beim Käufer, 
zur zweiten Frage: Sie dürfen auf 
gar keinen Fall eine Routine ohne 
weiteres übernehmen. Es könnte 
Sie in arge Schwierigkeiten brin¬ 
gen. Immer erst mal mit dem Au¬ 
tor, bzw. dem Besitzer Kontakt 
aufnehmen und nachfragen. Soll¬ 
ten Sie z.B. eine Routine aus unse¬ 
rer Zeitschrift übernehmen, so 
dürfen Sie das neue Programm, 
bzw. die Erweiterung nur an uns 
verkaufen. Versuchen Sie das Pro¬ 
gramm an einen dritten oder vier¬ 
ten weiter zu verkaufen, bringt 
das ebenfalls Ärger mit sich. Also 
lieber immer erst einmal fragen. 
Sicher ist sicher. 

*** 


Lieber Tronic-Verlag, 

...- Warum dauert es immer solan¬ 
ge, bis man eine Antwort erhält, 
ob das entsprechende Spiel ange¬ 


nommen oder nicht angenom¬ 
men wird. ( Mein Bruder mußte 
fast drei Monate auf Antwort 
warten und diese kam auch erst 
nach Anfrage - Brief.) Ich wäre 
froh, wenn Sie diese Frage beant¬ 
worten würden. Danke!!! ... 

Rauft, Münster 


Hier die Antwort auf die be¬ 
rechtigte Nachfrage: 

Sie können grundsätzlich davon 
ausgehen, daß wir Programme, an 
denen wir nicht interessiert sind 
sofort zurückschicken. Ist ja auch 
verständlich, da es nur totes Mate¬ 
rial für uns wäre, welches sich in 
unseren Regalen stapelt. Ist Ihr 
Programm interessant für unsere 
Zeitschrift, kann es schon ein 
Weilchen dauern, bis es veröffent- 
licht wird. Dafür gibt es mehrere 
Gründe . Zwei Monate müs¬ 
sen Sie auf alle Fälle rechnen, 
denn wenn Sie die neuste Ausga¬ 
be in die Hand bekommen und 
ein Programm zu uns schicken, 
haben wir natürlich schon die 
Programmauswahl für die näch¬ 
ste Ausgabe getroffen, so daß Sie 


frühestens in der übernächsten 
Ausgabe Ihr Programm in der 
Zeitschrift veröffentlicht sehen 
können. Wie gesagt frühestens. 
Denn in unseren Regalen liegt 
nicht nur ein Programm, das dar¬ 
auf wartet abgedruckt zu werden. 
Aus der Masse der Programme 
müssen wir dann auch noch ge¬ 
zielt auswählen, nach Qualität, 
nach System und ob ein Spielpro* 
granam oder Anwenderpro¬ 
gramm benötigt wird. Bei der 
Masse der Programm ist natürlich 
das entscheidene Kriterium die 
Qualität. Um so besser ein Pro¬ 
gramm ist, desto eher wird es ver¬ 
öffentlicht, Aus diesen Gründen 
kann es sogar durchaus Vorkom¬ 
men, daß es gar sechs Monate dau¬ 
ert, bis das Programm abgedruckt 
wird. Es ist also immer als ein gu¬ 
tes Zeichen zu werten, wenn Sie 
Ihr Programm nicht sofort zu¬ 
rück geschickt bekommen. 
Damit hoffen wir Ihre Frage, die 
wir nicht zum ersten Mal ver¬ 
nommen haben, ausreichend be¬ 
antwortet zu haben und warten 
auf weitere gute Programme von 
Ihnen. 


Kerrektw des Datasetteninttrloe**: 

Hier dos Schaltbild der laufffähigen Version (demnächst im Hardware-Service) 


SßVE - 


LORJ) - 


Wolf-Diele** -Hetvr. 

69 **0 WeinKclm 

/£. 3.8€ Rnrvtiler _ 

Korrektur : - 

Jrtirrfa.ce C1G / HC aus 

Heft 3 /££ -.Campute mit 
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report. 



WAS SONST! 



WERNER - WAS SONST!! 

Den allermeisten Lesern wird die 
Person "Werner” wohlbekannt 
sein, auch wenn Werner bisher 
nichts mit ”Kombjudern”zu tun 
hatte. Die Comicbücher von 
Werner Brösel haben mittlerweile 
eine derartige Verbreitung gefun¬ 
den, daß eine Computerrealisa- 
tion eigentlich nur eine Frage der 
Zeit sein konnte. Viele 
Computer-Freaks haben sicher 
schon eine ganze Zeit auf ein 
Wernerspiel gewartet. Wer jetzt 
das Spiel in die Finger bekommt, 
wird feststellen, daß es sich ge¬ 
lohnt hat zu warten. Auch in un¬ 
serem Redaktionskreis gab es seit 
Monaten schon kein interessante¬ 
res Thema, als das Spitzen pro- 
gramm Werner. Kein Wunder: 
Wir haben immerhin Werner von 
klein auf kemiengelernt. Mit je¬ 
dem neu programmierten Teil 
wuchs unsere Sympathie für die¬ 
ses Spiel und deren Hauptfigur, 
Aus diesem Grunde freuen wir 
uns schon jetzt mit unseren Le¬ 
sern über dieses deutsche Top Pro¬ 
gramm, weil wir schon seit lan¬ 
gem wissen, was Sie erwartet. 

Es war schon bemerkenswert, 
wie viele Ideen zu diesem Spiel 
vorhanden waren. Geradezu 
grandios war es dann, wie diese 
Ideen zum Großteil umgesetzt 
wurden. Entscheidenen Anteil an 
der hervorragenden Gestaltung 
hatte vor allem der Autor Werner 


Brösel selbst. Wenn es nach sei¬ 
nen Ideen gegangen wäre, würde 
ein ganzer Zeichentrick-Film 
über den Bildschirm laufen. Doch 
er hat es akzeptieren müssen, das 
ein Computer nur begrenzte 
Möglichkeiten hat. Die wurden 
allerdings bis auf das äußerste aus¬ 
geschöpft, dank der tollen Zusam¬ 
menarbeit von Autor und Pro¬ 
gram micrcrn. Gerade die Tea¬ 
marbeit hat das Programm zu 
dem gemacht, was es heute ist: 
Ein echtes Spitzenspiel 1 Überzeu¬ 
gen können Sie sich bald selbst da¬ 
von. Dann werden Sie auch ver¬ 
stehen, daß uns in der Zeitschrift 
"aktueller Software Markt 
(ASM)" kein Platz zu schade war, 
dieses Spiel und deren Veran¬ 
twortlichen von allen Seiten zu 
belichten. Auch dabei war eine 
gute Zusammenarbeit Grundvo¬ 
raussetzung. Durch die Mithilfe 
von micro-partner war es uns 
möglich, einen frühest möglichen 
Spielbericht zu verfassen, der alle 
Computer-Freaks richtig heiß auf 
die Neuheit gemacht hat. Später 
dachten wir uns, Ihnen einmal die 
Verantwortlichen von micro- 
partner vorstellen zu müssen, um 
das Umfeld von so einem Pro¬ 
gramm darzustellen. Wer das 
überhaupt ist, der so etwas produ¬ 
ziert und auf den Markt bringt. 
All das, was wir in dem Bereich 
kennengelernt haben, ist kein 
Wissen, das wir für uns behalten 
wollen. Uns liegt einfach daran, 
alles was wir gesehen, gehört oder 


gerochen haben weiter zu vermit¬ 
teln. Ja, auch gerochen. Denn es 
gehört wohl auch der richtige 
Riecher dazu, ausgerechnet bei 
der Produktion von so einem gu¬ 
ten Spiel dabei zu sein. 

Die Vollendung um dieses Pro¬ 
jekt kommt allerdings noch. Um 
den Kreis zu schließen, fehlte uns 
nur noch das Statement des Au¬ 
tors selbst. Denn ohne seine Kult¬ 
figur Werner, wäre es wohl nie zu 
diesem Spiel gekommen. Sie wer¬ 
den es kaum glauben, aber wir ha¬ 
ben es tatsächlich geschafft mit 
Roetger Feldmann, alias Werner 
Brösel, das Interview zu führen, 
und somit das i-Tüpfelchen zu set¬ 
zen. In der kommenden ASM- 
Ausgabe können Sie ausführlich 
nach lesen, was bei einem locke¬ 
ren Gespräch in der Regenera¬ 
tionsphase rum kam. Freuen Sie 
sich also schon jetzt auf die näch¬ 
ste Jet-Set-Ecke in der ASM. 

Das überwältigende an diesem 
Einblick, den wir Ihnen damit ge¬ 


währen wollten ist: Auf Sie kom¬ 
men viele, viele Preise zu, die Sie 
in einem kleinen Wettbewerb ge¬ 
winnen können. Was wollen Sie 
also mehr? 

Das Programm »Werner* ist nur 
ein Beispiel von vielen, wo wir 
diese oder ähnliche Vorgehens¬ 
weisen praktizieren. Sofern es die 
Programmierer nicht stört, wer¬ 
den wir Ihnen auch weiterhin 
über die Schultern schauen, damit 
unsere Leser vor Ort die neusten 
Informationen erhalten. Dadurch 
vermeiden wir auch Fehler, wie 
sie bei manch anderer Zeitschrift 
au ft roten, z.b. daß ein Spiel ange¬ 
kündigt wird, welches nie existie¬ 
ren wird. Den Freaks eine gewisse 
Vorfreude zu entlocken ist doch 
legitim! 


Das aktuelle Interview erscheint 
in »Aktueller Software Markt« 
am 18.11.86! 
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Programme 



COOKY! 


upp) 


Ein kleiner Krebskoch in Not. 
Helfen Sie Cooky die Krebse wie¬ 
der einzufaneen die ihm wegge¬ 
krabbelt sind. Aber aufgepaßt; 
das ist gar nicht so leicht!!! Denn 
Cooky möchte die Krebse ja alle 
in den Topf stecken ( Angezeigt 
durch eine zusätzliche Dampf¬ 
wolke über dem Topf). 

Die Krebse versuchen Cooky in 
die Hand zwicken und das tut 
weh. Die Folge: Cooky läuft in 
verschiedenen Farben an vor 
Schmerz; und zu allem Übel 
spielt auch noch die Melodie: 
’Freude schöner Götterfunken’. 
Wenn das passiert ist das Spiel zu 
Ende. Also au feepaßt! Dem klei¬ 
nen Koch muß man allerdings 
auch den nötigen Respekt zollen. 


Cooky ist wirklich intelligent! Er 
merkt es, wenn Sie ihn sein Netz 
auf den leeren Boden werfen las¬ 
sen. Dann fängt er nämlich fürch¬ 
terlich an zu schimpfen und 
schaut sie mißmutig an. Hinzu 
kommt, daß unser Freund ver¬ 
dammt schnell ungeduldig wird. 
Wenn er einen Krebs gefangen 
hat, ermuntert er einen so schnell 
wie möglich den nächsten einzu¬ 
fangen. Natürlich schimpft er 
auch, wenn Sie ihn gegen die 
Wand laufen lassen oder gar ein¬ 
fach stehen lassen. 

Ein kleiner Tip noch: Der kleine 
Krebskoch wird von Krebs zu 
Krebs schwieriger. Bleibt mir 
zum Schluß nur noch Ihnen viel 
Glück zu wünschen im Kampf 
mit den Krebsen. 


M M _ 



Ich wußte leider nicht mehr weiter. Seit dem Cooky die Krebse davon gelaufen sind, ernährt er sich nur 
noch vegetarisch! 


Teil l 


VC20 L15TIN6 + CHECKSUMMEN (V Vt.O» 

5 REM COOKY 1 

10 DATAO,224,227,69,68,68,60,78,78 

11 DATA1,0,28,60,59,63,28,24,60 

12 DATA2,O v 56,120,118,126,60,24,60 

13 DATA3,126,219,189,60,102,119,0,0 

14 DATA4;62,59,57,24,24,28,0,0 

15 DATA5,0,0,0,102,255,255,60,60 

16 DATA6,O f 56,120,118,126,61,27,62 

17 DATA7,60,56,56,24,24,28,0,0 

18 DÄTA8,0,56,60,220,252,120,56,124 

19 DATA9,0,28,30, HO, 126,60,24,60 

20 DATAIO,126,219,189,60,102,238,0,0 

21 DATA11,124,220,156,24,24,56,0,0 

22 DATA12 v O,60,219,255,66,102,60,24 

23 DATA13,0,28,30,110,126,188,216,124 

24 DATA14,60,28,28,24,24,56,0,0 

25 DATA15,0,60,219,255,126,102,60,24 

26 DATA16,60,126,109,36,36,102,0,0 

27 DATA17,0,60,219^255,66,102,60,153 

28 DATA18,189,126,60,36,36,102,0,0 

29 DATA19,66,36,24,153,126,24,60,66 

30 DATA20,0,102,24,126,153,60,66,0 

31 DATA21,12,22,41,85,217,166,28,0 

32 DATA22,0,28,166,217,85,41,22,12 

33 DATA23,48,104,148,17a, 155,lOl,56,0 

34 DATA24,0,56,101,155,170,140,104,48 

35 DATA25,0,0,128,200,120,4B,104,148 

36 DATA2&,0,0,1,19,30,12,22,41 

37 DATA27,24,102,255,126,126,126,126,60 

38 DATA2B,0,60,39,37,39,36,60,24 

39 DATA29,51,102,102,102,102,102,102,51 

40 DATA30,255,255,64,95,81,05,81,95 

41 DATA31,255,255,0,255,17,85,17,255 

42 DATA32,0,0,0,0,0,0,0,0 

43 DATA33,72,72,72,72,104,108,108,108 

44 DATA34,0,0,0,40,124,252,120,4B 

45 DATA35,0,0,0,0,0,129,255,126 

46 DATA36,95,B0,80,84,B4,80,127,96 


<39 > 
< 1 > 
<63> 
< 10 > 
<50> 
<133> 
<130> 
<1B3> 
<97> 
<169> 
<96 > 
<32 > 
<9B> 
<240> 
<7> 
<45> 
<113> 
<148> 
<255> 
<79> 
<10O> 
<251 > 
<185> 
<B0> 
<99> 
<106> 
<177> 
<234> 
<130> 
< 125> 
<225> 
<124> 
<46> 
<201 > 
<51 > 
<152> 
<165> 
<117> 


47 DATA37,255,65,65,69,69,65,255,0 

48 DATA38,78,7B,7B,78 V 7B,6B,192,192 

49 DATA39,109,97,0,0,0,0,0,0 

50 DATA40,255,255,128,128,12B,128,128,128 

51 DATA41,255,255,2,2,2,2,2,2 

52 DATA42,62,126,96,96,96,96,126,62 

53 DATA43,60,126,195,195,195,195,126,60 

54 DATA44,124,126,102,126,124,96,96,96 

55 DATA45,0,0,0,0,0,0,96,96 

56 DATA46,14,30,54,38,6,6,6,15 

57 DATA47,60,126,102,126,62,6,126,60 

60 DATA58,60,126,102,60,60,102,126,60 

61 DATA59,62,62,48,60,62,6,62,60 

62 DATA60,62,126,96,124,62,6,126,124 

63 DATA61,126,126,96,120,120,96,96,96 

64 DATA62,126,126,24,24,24,24,24,24 

65 DATA63,3,126,254,182,54,54,115,97 

70 DATA4B,0,0,6,103,255,252,2B,28 

71 DATA49,0,0,96,230,255,63,56,56 

72 DATA50,0,0,12,24,0,0,0,0 

73 DATA51,0,12,30,62,56,0,0,0 

74 DATA52,0,12,62,62,124,60,0,0 

99 DATA-1 

100 POKE52,2BxP0KE56,2BiP0KE55,O5PDKE51,OiCLRxPR 
INT" t CLEAM » 

110 READAsIFA=-1TFEN150 

120 B=716B+A*0xFORI—BTOD+7:READCxPOKEI,C:NEXT 
130 BOTOllO 

150 FORI*7120T07120+34s READJx POKEI,JiNEXT 
160 POKE631,131sPÖKE198,1 

170 DATA169,127,141,34,145,173,32,145,41,128,133 
,251,169,255,141,34 

180 DATA145,173,31,145,41,20,24,101,251,133,251, 
173,31,145,41,32 
190 DATA133,252,96 
ENDE DES L1STINGS 


<37> 
<B0> 
<64> 
<14i> 
<39 > 
<119> 
< 103> 
<90> 
<196> 
<B0> 
< 212 > 
<9> 
<83 > 
<B8> 
<37> 
<197> 
<130 
<198> 
<94 > 
<218> 
< 22 > 
<166> 
< 211 > 

<144> 

<71> 

< 202 > 

<192> 

<05> 

<197> 

<103> 

<224> 

<43> 


Teil 2 


VC20 LISTING + CHECKSUMMEN (V VI.O» 

10 POKE52,28x P0KE56,28s POKE51,OiP0KE55,O x P0KE368 


12 
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Programme 


69,255:POKE36079,0 <250> 

106 PRINT" L CLEAR HHITE RVSON DOHN RIGHT SH SPACE 

19 SW <33> 

107 PRINT"CWKS0W WJ0WT2 SW SPACE 16 SW <211> 

100 PRINT »i RVSON RIGHT3 SO CT14 SP <252> 

109 F0RI=0T010iPRINT" I RIGHT3 RVSON Cg. SPACE14 CH 

>"*NEXT <02> 

110 PRINT »I RVSOH RIGHTS CG14 SG <2O0> 

111 PRINT» <. RVSON RIGHT2 SW SPACE16 SW <190> 

112 PRINT »i RVSOH RIGHT SÄ SPACE19 Sg <213> 

120 PRINT»C WOWE D0HH15 WIOWTS >" 0!C SP4C£ >tl< P0WW 

LEFT6I *X 8t ’ () <234> 

121 PRINT» C WOWE 00HH6 RIGHT12 RVSON CA S* CR S* 

CS <20B> 

122 PRINT"C WOWE D0HN7 RIGHT 12 RVSON Sn SP/ICC Sn 

SPACE Sn <179> 

123 PRINT» {. HOHE DOHNB WJ0WT12 RVSON Sr: SPACE CG 

SPACE Sn <HO> 

124 PRINT»C WOWE D0HH9 RIGHT12 RVSON Sn SPACE Sn 

SPACE Sn <19B> 

125 PRINT "t NONE DOHNIO RIGHT12 RVSON CZ §* CE S* 

CX <61> 

130 PRINT» C WOWE D0HN13 RIGHTS I* mi DOHN LEFT3 y*V.9t <244> 

140 PRINT"C WOWE D0HH1S RIGHT13 >* GC DOHN LEFT3S SX 
8t < 167> 

ISO PRINT» C WOWE D0HH13 RIGHTIS! * GC DOHN LE FT 3 1 *7. 

8t < 196> 

160 PÜKE0Ö49,27s POKE30769,5s P0KE7949,20* P0KE7950 
,27 s POKE30669, 3» POKE3067O f 6 * < 04 > 

170 P0KE7905,293 P0KE7906,29s POKE7950,34 <102 > 

100 PRINT»CWOWE CYAN D0NN4 RIGHT41 **/zi <232> 

190 PRINT»C WOWE D0UH6 RIGHT4 J-?l SPACE y-<+=> <0> 

260 PRINT"C WOWE D0HH4 RIGHT17 RVSON CYAM yCl D0HN2 
LEFT 70t D0HN2 /J£T>0CD0WW2 LEFT yKi D0HH2 LEFT y Y <100> 

300 P=0O073C=30720s J=7120sJF=252s JA=251 3 S=1s T=4s 
X=1s Y=0s R=0:T=3s U=10 r Q=19:F=0r Z=2 1 V=2 <25> 

316 P0KEB020,27 1 POKE7990,50s POKE7976,51s P0KE7954 
,52 s POKE0019+30720,2:POKE0O2O+3O72O,5 <101> 

320 K=0:JK—16sTl=36074s T2=36075s T3=36076s T4=3607 

7sG=40s H=49sSX=0: XC=B019:BN=0 <241> 

321 POKE36070,15 1 POKE79O0,23 <135 > 

325 PRINT»C WOWE RIGHT3 SPACE7 1 » <171> 

330 PRINT»C WOWE HHITE WIGWT4 ><»C WFS0W >»K <04> 

335 PRINT"C WOWE D0HN2 RIGHT4 RVSON GREEN IHlC YELL 
OWVSC < 189> 

400 POKEP+C ,2 s POKEP,15s POKEP+22,16s POKEP-22,5 <10 > 

410 P0KEXC,32 <134> 

500 SYSJsSX=9X+ls IF9X=10THENP0KEP, 17sPOKEP+22, 10 

s P0KE7932,52 <235> 

510 IFPEEK(JF)< >32THEN900 <23> 

514 IFSX =2THENPRINT » C HOHE RVSON D0HH18 R1GHT3 CY 

AHI HEY I SPACE y-L RIGHTS y PLEASE <170 > 

515 IFS X=9THENG0SUB5000:POKEP—22,5s PRINT"COP RIG 

HT3 RVSON CYAHT PRESSC RIGHTS }BUTTGN <255> 

520 IFSX=20THENP0KEP,15b POKEP+22,16s P0KE7932,32 <154 > 

525 IFSX=0OTHEN6OO0 <129> 

526 G0SUB2100 <60> 

527 IFSX>30THENGOSUB5040 <95> 

520 IFSX=5OTHENG0SUB3000 <40> 

529 IFSX=60THENG0SUB4000 <63> 

530 G0TÜ500 <07> 

900 9YSJs SX-OsK-0 <94> 

905 PRINT»C WOWE D0HN19 RIGHT3 SPACES R IGHTS SPAC 

E6>" <246> 

906 PRINT"CPOWW RI GHTS S PACEin" <235> 

907 PRINT»C WOWE HHITE RIGHT4 WKSOEF X»C WKSOW >»K <150> 

910 G0SUB2000t POKET1,135 <120> 

920 FORI=0T0200sNEXTsP0KET1,0 <234> 

930 G05UB5040s SYSJ s POKE79O0,32 <121> 

1000 BW=PEEK <JA)s SYSJs BN=BN+1sFG=OsPOKEP+C,2:IFF 

>JK—1THENGOSUB2000sFG=1s GDSUB4500 <221> 

1010 IFBW=140THEND=-1s X=l:Y=OsGOTO1350 <153> 

1020 IFBW=28THEND=1aY“lsX=0:GOTO1060 <253> 

1030 IFPEEK < JF)<>32ANDY=1THENG0SUB4000 < 95 > 

1035 IFPEEK(JF)<>32ANDX=1THENB0SUB3000 <71> 

1040 G0SUB2000 <69> 

1045 G0SUB5040 <96> 

1046 IFBN=5THENP0KE7932,52 <73> 

1047 IFBN>5THENBKl=0 <43> 

1050 D=OsFORI=OTO05sNEXTs G0T01000 <199> 

1060 S=S+lsIFS>2THEN9=1 <44> 

1061 G=G+1:IFG>49THENG=40 <10> 

1062 P0KET3,130sP0KET2,135 <40> 

1063 T=T+lsIFT>4THENT=3 <119> 

1064 P0KET2,OsPOKET3,O <01> 

1066 IFP+D >8095THEND=Oi V=5*G0SUB4500 <154 > 


1067 PD=PEEK(P+D+22) 1 IFPD=190RPD=20THEN6000 <12> 

1060 IFBN=5THENPOKE7932,52 < 95> 

.1069 IFBN >5THENBN=0 < 65> 

1070 GOTO1500 <10B> 

1350 R=R+laIFR>9THENR=0 <223> 

1351 H=H+lsIFH>49THENH=40 <70> 

1352 PDKET3,130sP0KET2,135 <75> 

1355 U=U+lsIFU>11THENU=10 <116> 

1356 IFP+D<0O78THEND=OsZ=5sG0SUB45O0 <14> 

1357 P0KET3,0 s P0KET2,0 <113 > 

1350 IFBN=5THENP0KE7932,52 <130> 

1359 IFBN}5THENBN=0 <100 > 

1360 PD=PEEK(P+D+22)sIFPD=190RPD=20THEN6000 <50> 

1400 P=P+Ds POKEP,Rs POKEP+22,Us POKEP-22,Hs POKEP+C 

,ZsIFD< >OTHENPOKEP—D,32 s POKEP—D—22,32 <157> 

1405 P0KEP+22+C,1 < 99 > 

1410 IFD<>OTHENPOKEP-D+22,32 < 02 > 

1400 G0SUB2000 <254> 

1490 D=Os Z=2sGOTOlOOO <142> 

1500 P=P+Ds POKEP,Ss POKEP+22,Ts POKEP-22,Gs POKEP+C 
,VsIFD<>OTHENPOKEP-D,32 s POKEP+22-D,32s POKEP-D-22 
,32 <175> 

1505 P0KEP+22+C,1 <199> 

1590 GOSUB2OO0 <109> 

1600 D=0:V=2 s GOTO1000 <233> 

2000 F=F+1sIFF<2THEN2004 <41> 

2001 P0KE7932,32sIFF=J K-3THENP0KEHJ,32 s HJ=HJ-Ds P 

OKEHJ+C,2s PH=PEEK <HJ)s G0T02010 <230> 

2002 IFF >JKTHEN21OO < 2 > 

2003 G0T02020 <15> 

2004 HJ=0O90sB=INT(RND<1)*1B> +1 5 HJ=HJ+BsPH=PEEK< 

HJ)s P0KET3,100 <10> 

2005 IFF >JK+1THENF=2 <192 > 

2006 P0KET3,0s POKEHJ +C,2 <203> 

2010 IFPH=30RPH=40RPH=100RPH=11THENPOKEHJ+C,1s GO 

TO 2004 <1O0> 

2015 IFPH=16ÜRPH=10THENPOKEHJ+C,1e G0T02004 <156> 

2020 Q=Q+lsIFQ>20THENQ=19 <50> 

2030 POKEHJ,QsIFK>OTHENFOKEXC,0 <224> 

2031 IFK>10THENJK=14 <142> 

2032 IFK>20THENJK—13 <136> 

2033 IFK>30THENJK=12 <130> 

2034 IFK>40THENJK—11 <124> 

2035 IFK>50THENJK=10 <110> 

2036 IFK>100THENJK—9 <230> 

2037 IFK>150THENJK=G <253> 

2030 IFK> 200THENJK=7 <222> 

2039 IFK>500THENJK=6 <224> 

2050 RETURN <152> 

2100 POKEHJ,32 s POKEHJ+C,1s F=1s GDT02004 <160 > 

3000 POKEP-22,40s POKEP-1,23s POKEP-1+30720,1s POKE 
P,13sPOKEP+22,14 s F0RI=0T0100s NEXT s POKEP—1,32 <00> 

3010 POKEP,0:POKEP+22,11s POKEP-22,49s P0KE7932,52 <203> 

3020 IFPEEK(P+D+21>=190RPEEK(P+D+21)=20THENP0KEP 
+21,26sK=K+1sF=OsPRINT"CWOWE WWITE RVSOFF RIGHT4 
><»C ftKSOW >"Ks SG0T03035 <142> 

3030 POKEP+21,24:F—1sP0KEP+21+C,lsG0T03040 <42> 

3035 FOR1=140T0210STEP6s P0KET2,I-10 s POKET3,I+15s 

P0KET4,1s NEXTs P0KET2,0s P0KET3,0s P0KET4,0 <16> 

3036 FORI=0T050s NE X T:POKEP+21,32s FORI=0T0100 s NEX 

Ts POKET4,0s G0SUB2000s F=0 <243> 

3037 GDT03041 <44> 

3040 P0KET4,140sFORI=0T0150sNEXTsPOKEP+21,32sFOR 

I=0T0100 s NEXT s P0KET4,O s F=3 3 G0SUB2000 <116 > 

3041 IFF >1THENG0SUB4500 <15> 

3042 IFF=0THENG0SUB5000 <230> 

3045 IFK>SCTHENSC=IC , <54> 

3050 RETURN <131> 

4000 POKEP-22,49sP0KEP+l,21SPOKEP+1+30720,1sPOKE 

P,6 s POKEP+22,7 s FÜRI=0T0100 s NEX T s P0KEP+1,32 < 50 > 

4010 POKEP,1s POKEP+22,4s POKEP-22,40s P0KE7932,52 < 43> 

4020 IFPEEK(P+D+23)=190RPEEK(P+D+23)=20THENP0KEP 
+23.25s K=K+1sF=0SPRINT"C WOWE HHITE RIGHT4 RVSOFF 
XX WKSOW l"KsSG0T04035 <233> 

4030 POKEP+23,22s F= 1 s P0KEP+23+C , 1 s 0OTO4O4O < 77 > 

4035 F0RI=140T02105TEP6sP0KET2,I-10sP0KET3,I+15b 

POKET4,1s NEXT s POKET2,O s P0KET3 ,ObP0KET4,O <252> 

4036 FORI=OTO150s NEXT s POKEP+23,32s FORI=OTO100 3 NE 

X T s GOSUB200O s F=0 <140 > 

4037 G0T04041 <26> 

4040 P0KET4,140sFORI=OTO150sNEXTsPOKEP+23,32sFOR 

I=0T0100 s NE XT sPOKET4,O s £=3 s G0SUB2000 <144 > 

4041 IFF >1THENGOSUB4SOO <251> 

4042 IFF=0THENG0SUB5000 <210> 

4043 F=1 <23> 

4045 IFK >SCTHENSC=K <34> 
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4050 RETURN <111> 

4500 P0KEP+22+C,i:G=4S:F0RA=0T03:G=G+l«IFG>49THE 
NG=4B:P0KEP,15:P0KEP+22,16:P0KEP+C,4 <14> 

4510 P0KET1,130:P0KET2,140:FORI=0T0100:POKET1«Ol 
P0KET2,0 <35> 

4520 POKEP,17aPOKEP+22,1B:P0KEP-22,G <121> 

4530 P0KET3,135:F0RI=DT0100: NEXT«P0KET3,OlNEXT:P 
OKEP+C,2 <161> 

*4540 I FFG= 1THENRETURN < 66> 

4560 GÜT05040 <36> 

5000 F0RA=0T01sPOKEP,15sPOKEP+22,16:POKEP-22,5:P 
0KEP+22+C,1:F=1 <202> 

5010 P0KET1,130:PÜKET2,140:FÜRI=OTO100:POKET1,0: 
P0KET2,0 <25> 

5020 POKEF,17:POKEP+22,1B <239> 

5030 P0KET3,135:FORI=0TÜ100:NEXT:P0KET3,0:NEXT <234> 

5040 IFHJ<P+22THENP0KEP,B:POKEP+22,11:POKEP-22,4 

9:G=4B:H=4Br S=1:R=9:X=1 s Y=0:G0TO5050 <177> 

5041 P0KEP+22+C,1 <165> 

5045 IFHJ>P+22THENP0KEP,1:POKEP+22,4:POKEP-22,4B 

:B=49:H=49:S*2:R=BiY=1:X=0* G0T05050 < 27 > 

5046 GOT05040 <12> 

5050 SYSJ:PDKEP+22+C,1:RETURN <1> 

6000 POKEP,15:TY=P+C:POKETY,4:POKEHJ,19:POKEHJ,2 

O:POKEHJ,19:POKEHJ,20:POKEP-22,4B <209> 

6002 IFHJ<P+22THENP0KEP+22,11 <32> 

6003 POKEP-22-5:PRINT» t HOME RUSON D0UN2Q RIGHTS 

YE/.£.gW >GflME< SP4CCJ -t SP4CC >0VER <B0> 

6004 IFHJ>P+22THENP0KEP+22,4 <9> 

6005 P0KET4,17B:FORI«0T0350:NEXT:P0KET4,0:POKEXC 

,32:XC—B1B6 <11> 

6006 FORI=0TQ900:NEXT <23&> 

6007 G0T06010 <199> 

60OB POKEP+22,16:TY=P+1+C <96> 

6010 P0KE36B7B,6:F0RE=0T01:POKET1,230:POKET2,230 

IP0KET3,230« F0RI=0T0300iNEXT <249> 

6011 POKET1,0« P0KET2,0t P0KET3,O:NEXT:POKETY,5iPO 

KEP,12:POKEHJ,19:POKEP-22,49«POKEXC,19 <117> 

6013 P0KE799B,32:P0KE7976,32:POKE7954,32 <1B2> 

6014 PQKETl,231iP0KET2,231«PGKET3,231iF0RI-0T030 


O:NEXT:POKEHJ,20:POKEXC,20 <74> 

6015 P0KET1,O:POKET2,O«POKET3,OsPOKETY,2:P0KEP,1 

5:POKEHJ,19:POKEP-22,4B:POKEXC,19 <254> 

6016 F0RE=0T01:P0KETl,234iP0KET2,234:P0KET3,234« 

FORI=0T032O:NEXT <245> 

6017 POKET1,0:P0KET2,O:P0KET3,OiNEXT:POKETY,5:PO 

KEP,12:POKEHJ,20:POKEXC,20 <250> 

6018 POKET1,231:POKET2,231:POKET3,231:FORI=OT040 

0:NEXT:POKEHJ,19:POKEP-22,49:P0KEXC,19 <120 

6019 POKET1,0:P0KET2,0:P0KET3,O <155> 

6020 POKET1,230:P0KET2,230:POKET3,230:FORI=0T040 

O:NEXT:POKEHJ,20:POKEXC,20 <65> 

6021 POKET1,0s P0KET2,O:P0KET3,O:POKETY,2:POKEP,1 

5:POKEHJ,19:POKEP-22,4B:POKEXC,20 <99> 

6022 POKET1,227sP0KET2,227:P0KET3,227:F0RI=0T030 

Os NEXT:POKEHJ,20aPOKEXC,20 <54> 

6023 POKET1,0:P0KET2,0«P0KET3,0:P0KETY,4:P0KEP,1 

2s POKEHJ,19:POKEP-22,49:POKEXC,19 <I0> 

6024 F0RE=0T01:POKET1,223:P0KET2,223:PDKET3,223c 

FORI=OT0300:NEXT <4B> 

6025 POKET1,0s P0KET2,0:P0KET3,O:NEXT:POKETY,5:PO 

KEP,lSsPOKEHJ,20:POKEP-22,4B:P0KEXC,20 <207> 

6026 POKET1,227:P0KET2,227:P0KET3,227:FORI«0T030 

OsNEXT <154> 

6027 P0KET1,0:P0KET2,0:P0KET3,0:POKETY,2sPOKEP,1 

2:POKEHJ,19sPOKEP-22,49:POKEXC,19 <224> 

6028 FORE=OTÖl:POKET1,230sP0KET2,230:P0KET3,230» 

F0RI=0T0300s NEXT <173> 

6029 POKET1,0aP0KET2,0:PDKET3,0:NEXT:POKEP,15:PO 

KEHJ,20:POKEP-22,4B:POKEXC,20 <0> 

6030 FORE=OTO1a POKET1,227:POKET2,227« POKET3,2271 

FORI—0T0360:NEXT <34> 

6031 POKET1,OsPOKET2,OsP0KET3,0tNEXT:POKEHJ,19:P 

OKEP-22,49: POKEXC,19 <145> 

6050 IFSX=80THEN30O <171> 

6100 PRINT»t WQWC HHITE D0HNI7 R1GHT2 S PACE1 Gl » <143> 

6105 PRINT» {. RIGHT SPACE201 » <20> 

610B PRINT» C SPACE22 '}» <66> 

6110 G0TD300 <52> 

ENDE DES LISTINGB 
(DRUCK:F.B./O.S.3 



GAM- 

BOL 

In diesem Spiel geht es darum* mit 
dem lustig hupfenden 'Garn- 
bol*möglichst viele Labyrinthe zu 
schaffen. Die Labyrinthe haben 
die Form von übergroßen dreidi¬ 
mensionalen Buchstaben* Garn- 
bol muß nun versuchen, alle 
Energiekontainer zu bekommen, 
um in das nächste Labyrinth zu 
gelangen. Leider werden die Ener- 
giekontainer von Monstern be¬ 
wacht. Um die Monster zu über¬ 
winden, gibt es aber noch ein 
Hilfsmittel: In den Wänden der 
Labyrinthe sind Felsen, gestützt 
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auf den Ständern. Schiebt Gam- 
bol nun einen Ständer unter ei¬ 
nem Felsen weg, so fällt der Fel¬ 
sen hinunter - und wenn Gambol 
Glück hat, auf ein Monster. Die 
Felsen lassen sich noch auf dem 
Boden verschieben, ebenfalls las¬ 
sen sich die Ständer durch den ge¬ 
samten Raum schieben, so daß 


man auch Monster damit blockie¬ 
ren kann. 

Wenn Gambol die Labyrinthe 
von A*Z geschafft hat, so beginnt 
er wieder bei A, allerdings mit ei¬ 
ner Schwierigkeitssteigerung; Die 
Fatsen lassen sich nicht mehr auf 
dem Boden bewegen. 
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0 




1 

REM* 

GAMBOL 

# 

2 

REM* 

====== 

* 

3 

REM* 

(C) 19B6 

» 

4 

REM* 

BY 

* 

5 

REM* 

HEINZ KROOS 

* 

6 

REM* 

NEUE REIHE 26 

* 

z 

REM* 

4795 BOKE 

* 

8 

REM*NRW. W.-GERMANY* 

9 





10 PRINT" C CLEAR > »CHR*(142)CHR*<B>iPOKE36079,232s 
PRINT "C SPACE SU S*i8 SJ 

11 PRINT "C SPACE Sn SPACEiS Sr 

12 PRINT» C SPACE S- SPACE52 GAMBOL CSPACE7_ £r>»sPRI 
NT» C SPACE Sr SPACE18 Sr 

14 PRINT »C SPACE Sr SPACE18 Sr 

15 PRINT »C SPACE Sr SPACEiS Sr 

16 FRINT H C SPACE S - SPACE4 J <C) C SPACE !19Q6C SPACE6 
Sx 

17 PRINT »C SPACE Sr SPACEIS Sr 

18 PRINT" C R1GHT Sr RIGHTT* BYC SPACE9 Sr 

19 PRINT "C SPACE Sr SPACE18 S- 

20 PRINT" CSPACE Sr (?MMri>HEINZt££4C£}KR0DStSP4C 

E4 Sr 

21 PRINT" {. SPACE S- SPACE 18 S~ 

22 PRINT »C SPACE SJ S*19 SK UP RHITE !» 

30 FÜRA=7176T07335:READBs POKEA,Bs NEXTs PDKE190,1 1 
P0KE631 v 131 

100 DATA63,67,253,205,101,181,206,252 

101 DATA56,110,252,240,240,254,124,56 

102 DATAO,0,0,0,0,0,0,0 

103 DATAO,30,127,255,255,254,126,60 

104 DATA48,124,254,255,255,127,30,6 

105 DATA14,63,127,126,252,240,112,112 

106 DATAO,30,127,255,255,254,126,60 

107 DATA255,36,24,24,24,24,60,126 
100 DATAO,24,126,126,126,60,24,0 

109 DATA126,60,0,0,0,0,0,0 

110 DATAO,0,0,0^0,24,126,126 

111 DATAO,24,60,126,126,126,24,0 

112 DATAO,0,0,0,0,0,60,126 

113 DATA126,126,24,0,0,0,0,0 

114 DATAO,0,20,62,111,127,62,20 

115 DATA192,224,240,240,224,0,0,0 

116 DATA1,3,6,7,3,0,0,0 

117 DATAO,0,56,124,246,254,124,56 
110 DATA3,7,15,15,7,0,0,0 

119 DATA12B,192,96,224,192,0,0,0 
ENDE DES LISTINGS 


< 115> 
<205> 
<60> 
<54> 
<227> 
<70> 
<70> 
<30> 
< 66 > 
<124> 

<245> 

<247> 

< 120 > 
<250> 
<251 > 

< 0 > 

<253> 

< 202 > 

<255> 

< 144> 

< 1 > 

< 129> 

<240> 
<162> 
<207> 
<61 > 
<99> 
<55 > 
<251 > 
< 102 > 
<33> 
<152> 
<BB> 
<159> 
<176> 
<94> 
<64> 
<174> 
<99> 
<211 > 
<243> 

< 147> 
< 110 > 
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VC20 LISTING + CHECKSUMMEN <V VI.O) 


s 10 PRINT"C BLUE CLEAR SPACE7! TEIL C SPACE! 2 <197> 

20 PRINT" C SPACE7 CY6 DORN RHITEJ '” <151> 

30 F0RA=716BT07175s POKEA,255s NEXTs F0RA=7424TO743 
1s POKEA,0s NEXT <20B> 

40 A=7000 < 6A > 




50 READBsIFB>-lTHENPOKEA,BtA=A+1tGOTOSO <92> 

60 DATA162,0,169,0,157,0,30,157,0,31,169,6,157,0 

,150,157,0,151,202,200,237,96 <102> 

70 DATA162,0,109,21,31,201,32,240,3,76,127,27,16 

9,4,157,0,151,232,200,230 <140> 

00 DATA162,0,109,21,30,201,32,240,3,76,147,27,16 

9,4,157,0,150,202,200,230 <231> 

199 DATA96,—1 <21> 

200 PDKE190,1&POKE631,131 <209> 

ENDE DES LISTINGS 
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O PRINT» {. CLEAR BLUE SPACE7! TEILC SPACE ) 3 <BB> 

1 PRINT" C SPACE7 CY6 UH1TE 1 " <77> 

10 FORA—6B93TO6906sREADBs POKEA,Bs NEXTs F0RA=6710T 
□6B12s READB s POKEA,B s NEXT <251> 

30 DATA162,0,109,255,30,201,2,240,3,76,26,27 <191> 

32 DATA1B9,0,31,201,32,240,3,76,21,27,169,32,157 

,255,30,169,2,157,0,31,169,7,157,0,151 <7> 

33 DATA76,26,27 <B5> 

34 DATA169,3,157,255,30 <33> 

40 DATA189,0,30,201,2,240,3,76,69,27 <107> 

42 DATA109,1,30,201,32,240,3,76,64,27,169,32,157 

,0,30,169,2,157,1,30,169,7,157,1,150 <142> 

43 DATA76,69,27 <133> 

44 DATA169,3,157,0,30 <94> 

50 DATA202,200,167,76,54,26 <212> 

60 DATA162,0,109,0,31,201,3,240,3,76,99,26 <83> 

62 DATA189,255,30,201,32,240,3,76,09,26,169,32,1 

57,0,31,169,3,157,255,30 <190> 

63 DATA76,99,26 <159> 

64 DATA169,2,157,0,31,169,7,157,0,151 <6> 

70 DATA189,1,30,201,3,240,3,76,142,26 <131> 

72 DATA189,0,30,201,32,240,3,76,132,26,169,32,15 

7,1,30,169,3,157,0,30 <I21> 

73 DATA*6,142,26 <05> 

74 DATA169,2,157,1,30,169,7,157,1,150 <9> 

80 DATA202,200,167,109,0,31,201,3,240,1,96,76,54 

t26 <75> 

97 DATA^Ä <250> 

100 P0KE19B,1:P0KE631,131 <109> 

ENDE DES LISTINGS 
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VC20 LISTING + CHECKSUMMEN (V VI.O) 


0 PRINT" CCLEAR BLUE SPACE8J TEIL CSPACE!* <107> 

I PRINT» C SPACE9 CY6 HN2TE ! » <254> 

10 FORA=6143TO5B0BSTEP-lsREADBsPOKEA,BsNEXT <1B> 

II F0RA=641BT06486sREADBs POKEA,BsNEXT <113> 

100 DATA209,0,209,0,209,209,0,201 <99> 

101 DATAO,221,0,221,0,221,219,0 <57> 

102 DATA215,0,209,0,209,0,209,215 <247> 

103 DATAO,209,0,209,209,0,203,0 <90> 

104 DATA201,195,0,107,0,195,201,0 <159> 

105 DATAO,195,0,0,107,195,201,107 <44> 

106 DATA175,103,187,0,163,0,187,0 <50>' 

107 DATA201,209,0,203,0,201,195,0 <37> 

100 DATA107,O,107,107,1,207,215,0 <24> 

109 DATA215,0,209,207,209,219,0,219 <75> 

110 DATAO,215,209,215,223,0,223,0 <23> 

III DATA219,223,225,0,219,0,215 <H> 

112 DATA230,0,234,0,234,234,0,230 <32> 

113 DATAO,239,0,239,0,239,238,0 <154> 

114 DATA236,0,234,0,234,0,234,236 <240> 

115 DATAO,234,0,234,234,0,231,0 <52> 

116 DATA230,227,0,223,0,227,230,0 <253> 

117 DATA227,0,0,223,227,230,223,221 <7> 

110 DATA?23,227,221,223,0,236,239,0 <125> 

119 DATA230,0,236,234,0,230,0,223 <3B> 

120 DATAO,223,223,227,227,230,230,231 <150> 

121 DATA231,234,230,234,230,230,239,230 <232> 

122 DATA236,234,231,230,227,223,230,223 <104> 

123 DATA231,223,234,223,236,223,230,223 <1B6> 

124 DATA239,238,236,234,231,230,227,223 <117 > 

.125 DATA223,0,223,227,230,0,230 <134> 

126 DATA231,234,O,236,234,230,0,0 <220> 

127 DATAO,234,0,231,230,227,0,0 <45> 
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Programme 


12B DATAO,231,0,230,227,223,0,0 

129 DATAO,223,0,223,227,230,0,230 

130 DATA231,234,0,234,234,230,0,6 

131 DATAO,234,0,231,230,227,0,230,227,223 

200 DATA169,39,141,20,3,169,25,141,21,3,169,255 

201 DATA141,40,25,160,255,141,46,25,96 

202 DATA173,255,23,141,10,144,173,255,23,141,10, 
144,206 

203 DATA60,3,173,60,3,201,0,240,3,76,BO,25,206,4 
6,25,169,15,141,60,3,169,17,141 

204 DATA14,144,206,40,25,206,14,144,76,191,234,9 
6 

205 P0KE198,1zP0KE631,131 
ENDE DES LISTINGS 


Teil 5 


VC20 LISTING + CHECKSUMMEN <V VI.O) 

PRINT "LCLEAR DOHN REDJ »zP0KE36B79,232zRUN45 
RESTORE:ES=PEEK(55)+256*PEEK(56)-53 
P0KE55,ES— <INT(ES/256)*256) 

P0KE56,ES/256s CLR 
ES=PEEK(55)+256*PEEK(56)+2 
F0RB=OTO49sREADAzP0KEB+E5,A: S=5+A: NEXT 
POKEO,76 

P0KE1,ES-(INT(ES/256)*256) 

B PÖKE2,ES/256SPRINT" WHITE ! "s POKE19B,1s P0KE631, 
131:END 

10 DATA173,17,145,72,74,74,41,7 

11 DATA133,251,104,41,32,10,10,5 

12 DATA251,133,251,162,127,142,34 

13 DATA145,173,32,145,162,255,142 
DATA34,145,41,120,74,74,74,74 
DATA5,251,9,112,73,255,16B,169 

16 DATAO,76,145,211 
20 PDKE19B, 1 : P11KE631,131 
45 F0RA=0T049:READB:NEXT 

F0RA=64B7T0670BzREADB3PGKEA,B:NEXT s P0KE36B69, 
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<33> 

<36> 

s <224> 

<64> 

<136> 

<145> 

<217> 

<90> 

<199> 

<214> 


50 
255 

100 DATA169,191,141,20,3,169,234,141,21,3,169,0, 

141,10,144,141,11,144,141,12,144 

110 DATA141,14,144,96 

120 DATA162,0,189,22,31,201,32,240,3,76,127,25,7 

6.137.25 

121 DATA109,22,31,201,2,240,3,76,207,25 

130 DATA189,0,31,201,7,240,3,76,162,25 r 169,32,15 

7,0,31,169,7,157,22,31,169,2,157,22,151 

140 DATA1B9,0,31,201,6,240,3,76,177,25,169,7,157 

,0,31 

150 DATA1B9,0,31,201,5,240,3,76,192,25,169,6,157 
,0,31 

160 DATA109,0,31,201,4,240,3,76,207,25,169,5,157 
,0,31 

170 DATA202 i 20B,160 

220 DATA162,0,109,22,30,201,32,240,3,76,225,25,7 

6.235.25 . 

221 DATA189,22,30,201,2,240,3,76,49,26 

230 DATA1B9,0,30,201,7,240,3,76,4,26,169,32,157, 

0,30,169,7,157,22,30,169,2,157,22,150 

240 DATA109,0,30,2017^,240,3,76,19,26,169,7,157, 

0,30 

250 DATA1B9,0,30,201,5,240,3,76,34,26,169,6,157, 
0,30 

260 DATA109,0,30,201,4,240,3,76,49,26,169,5,157, 

0,30 

270 DATA202,20B,160,96 

300 PRINT» 

HTlQVtRlMIllVlftlJMIZlVt&lGHL* "1 

301 PRINr'Dt KIffHT lDt fflgJfT lDt fflgJJT lDtftlgJfriDDDCgl 
GHTyDt RlGNT yDt filQHT yBt RIGHT lÜiMGHTI D<RJgWT> l, | 

302 PRINT^DCÄIMIl>DtaiML>DCÄMMTJDtÄiGMLlDtÄIÖ 

303 PRINT n DDD<ÄIGWI^DCaiGMI^ DC 51M^ 3D{ fi^fiäi IDt fil 
GHT!DD < RIGHT2 }Bt RIGHT y D tRIGHT) D l RIGHT_ y ” ; 

304 PRINT ,, DtÄIGMI>ßfÄlgHr3DDDtaiöHL)DtÄI6ffIJD<gI 
aHTyPt RIGHT ) D( RIGHT >DI WJfiWTI D tRIGHTl D LRIGHT *? 

305 PRINT w D( RIgHr iDC I?IgWT> D(PIg»Z:?DtglMIl>D{gJM 
TM€RIGHryDt RJGHr iBtRTGRTyBlRlGtUJDtRlGHT>niBim 
jy 11 1 

306 PRINT" t RlGHT yB< RlGHT2 '}Dt R26HT '>Dl RIGHT yDtRlGH 


<219> 

< 154> 
<241 > 

< 179> 
<137> 

< 167> 
<107> 
<94 > 

< 147> 

< 145> 
<77> 
<32> 
<130> 
<73> 
<219> 
< 220 > 
<29> 
<1B6> 

<94 > 

<42> 

< 103> 

<30> 

<23B> 

< 143> 
<05> 
<213> 

<94> 

<9> 

<36> 

<203> 

< 109> 

<92> 

<224> 

<09 > 
<242> 

<193> 

< 157> 
<7> 
<64> 
<4> 

<205> 


■nüt RlGHT yDDt RIGHT3 yM RlGHT2 yDD"t 
307 PRINT 

30B PRINT"DDDDDDDDDDDDDDDDDDDDDD 

309 PRINT 

310 PRINT” L D0HH4 BLACK 
MetHOHEy ; 

319"F0RA=1T01500:NEXT 

320 FORA=lT040sSYS6512«F0RB=1TD70zNEXTs NEXT 
330 FORA=l TC1999:NEXT 

399 PRINT" K CLEAR !»5 P0KE36B69,240:GOTO1 
ENDE DES LISTINGS 


<167> 

<205> 

<246> 

<207> 

<244> 

<244> 

<196> 

<39> 

<99> 
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0 PRINT» i CLEAR DOHN! »ft PÜKE36B79,14s P0KE36B69,25 
5:POKE029,1:POKE03O,0 

1 POKE6449,10s POKE6443,10 

2 CLR:W=32zA *="LSPACES DOHN LEFTS SPACES BONN LE 
FT5 SPACES DOHN LEFTS SPACES UPS LEFT2 y ” 

5 SYS7000:B»=»I HH1TE DOHN LEFT2y &L YELL0H UPJ B”sZ 
=30720:T=6B93 

10 B=PEEK(829)*0+32760:G=1zGDSUB20:SYS7022 

11 PRINT» t NOME DOHN J ”z sG=0z GDSUB20:G0T032 

12 F0RB=38B84T03B905cP0KEG,6:PÜKEG-Z,0:NEXT 

13 FÜRG=30803Ta3BB64STEP—1:IF(PEEK(G)AND4)=4THEN 
POKEG,6 

14 NEXTsRETURN 

20 F=0:F0RC=BT0B+6:E=PEEK(C)zF0RD=64TQ1STEP0 

21 IF(EANDD)=DTHENPRINTA* 3 :F=F+1zIFG=0THENIFF/4= 
INT(F/4)THENPRINTBT;:SS=SS+1 

25 IF (EANDD) < >DTHENPRINT» {.RIGHTS} » ) 

30 D=D/2sNEXTzPRINTCHRT(13)"C P0WW2 >»zzNEXTzGOTOl 
2 

32 FORA=0165T0B101STEP4 z FDRB=ATQA-440STEP—22 , 

33 IFPEEK(G> =WTHENIFPEEK(G-22)=0THENP0KEG,8sPOKE 
G-22,4 s POKEB+Z,4 1 POKEG+Z-22,2 

34 NEXTG.A 

30 POKE369O3,5O:POKEB20,15:POKE6143,2O9:SYS6418z 
PRINT» LHONE !» 

40 FORG=760OTO0105z IFPEEK(G)OWTHENNEXT 

41 A=GsPOKEA+4,0sPDKEA+4+Z,4zPOKEA-lB,4zPOKEA-10 
+Z,4:FOKEA+Z,7:G=0185z C=9 

50 SYS6512■G=USR(O)AND127 z 0NGG0T060,70,0,BO,BO,7 
0,0,110,60,110 

51 B=0:GQT0140 

60 B=-22:C=9:GOTO140 
70 B=22:C=12:GOTO140 
80 B=-1:C=15:G0T0140 
110 B=1:C=1B 

140 POKEA,N:SYST:PE=PEEK (A+B> : IFPEOWORPEEK(A)<> 
WGDT0160 

1451FB<>OTHENPOKEA,C+1:POKEA+B+Z,7:POKEA+B,C+2z 
F0RX=lT015zNEXTsPOKEA,W:A=A+B:G0T0147 

146 F0RX=lT030z NEXT 

147 POKEA,C s G0T050 

160 IFPE=20RPEEK(A)=2G0T0300 
165 POKEA,C:IFPE=1G0T0200 
170 IFPE< 9THENIFPE >3G0T0999 

199 G0T050 

200 SS=SS-lzIFSS>0G0T0145 

202 SYS6487:A=6449sB=6443sPOKEA,PEEK(A)+1:IFPEEK 
(AX13G0T0210 

204 POKEA,10zPOKEB,PEEK(B)+lzIFPEEK(B)=13THENP0K 
EB, 10 

210 A=829z POKEA,PEEK <A)+1zIFPEEK <A> <27G0T02 
220 POKEA,1z POKE03O,PEEK(030)+1zG0T02 

300 SYS6487:P0KE36678,15:F0RA=240T01B0STEP-30:F0 
RB=ATOA-60STEP—1:POKE36076,Bz NEXTs NEXT 

301 SYS64B7 

305 PRINT” L HONE D0HN2 RIGHT DOHN RIGMT DOHN RIGH 
T DOHN RIGHT DOHN HHITE D0HN2 RIGHT RVSON SU S*9 
Slj »SPRINT» L RVSON RIGHTS S-! GAME C SP4CO QVER CS-J 

ii 

310 PRINT» L RVSON RIGHTS SJ_ S*9 SKI 11 
390 IFUSR(O)>127THENRUN 
399 GOTO390 

999 POKEA,CcIFPEEK(B30)>0THENIFPEEK(A+B)=7G0T050 

1000 IFPEEK <A+B*2> =WTHENP0KEA+B*2,PEtP0KEA+B*2+Z 
,4:POKEA+B,Ns G0T050 

1001 G0T050 

ENDE DES LISTINGS 


< 101 > 

<96> 

<237> 

<10B> 

< 222 > 

< 130> 
<180> 

< 119> 

< 174> 
<238> 

<235> 

<24> 

<229> 

< 212 > 

< 08 > 

<106> 

<91 > 

< 0 > 

< 112 > 

< 164> 

< 16> 

<30> 
<221 > 
<105> 
<33> 

<70> 

<240> 

< 101 > 

< 135> 

< 122 > 
<129> 

< 1B> 
<74> 
<123> 

<77> 

<233> 
<1B> 

< 129> 

<150> 

<199> 


<30> 

<3> 

<253> 

< 10 > 

<67> 

<14B> 

< 111 > 
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Programme 


Tl 


Wostok 




Brüderchen, halte ein! Wir sind ebenfalls auf der Suche nach den Treibstofftanks! 


WOSTOK ist eine sowjetische 
Weltraummission, bei der Sie als 
staatlich konzessionierter Hub^ 
schrauberpilot den nötigen Rake¬ 
tentreibstoff herbeifliegen sollen. 
Den Treibstoff in Gasform holen 
Sie aus einem riesigen Tank, tief 
unter der Erde. Um zu diesem zu 
gelangen müssen Sie allerdings 
durch einen Tunnel fliegen, in 
dem - oh, du lieber Himmel - im¬ 
mer mehr Luftminen Ihren Weg 
erschweren, denn sie tauchen ur¬ 
plötzlich aus dem Nichts auf. Zu¬ 
sätzlich sorgt auch noch eine Bar¬ 
riere für Schwierigkeiten. Sollten 
Sie am Boden der Höhle angelan- 
gen, landen Sie in der Mine der 
Rampe. Ihr Hubschrauber wird 


dort automatisch vollgetankt. Da¬ 
nach treten Sie Ihren Rückzug an 
und fanden diesmal auf der obe¬ 
ren Rampe, wo der Hubschrau¬ 
ber automatisch abgeladen und 
die Rakete betankt wird. Je nach 
Schwierigkeitsgrad wiederholt 
sich dieser Vorgang bis zu zwölf 
Mal. Sobald Sie gegen Rampen 
krachen, den Gas tank zur Explo¬ 
sion bringen, den Kontrollturm 
zum Einsturz bringen, die Rake¬ 
tenrampe oder gar die Rakete de¬ 
molieren, verlieren Sie das Spiel, 
weil die Raummission nicht er¬ 
füllt werden kann. 

In dieser Version benötigen Sie 
den Joystick, zur Lenkung in alle 
Richtungen. 


VC20 LISTING + CHECKSUMMEN (V VI. 0> 


O G0TÜ700 
0 : 

9 : 

10 *####*»*«********* 

20 WOSTGK VORPROGRAMM 
30 ****************** 

40 THOMAS HUETTNER 

50 JOHANNES POLAK 
70 LINZ v 1906 

00 *#*•#«* HW «HMt »fr#*** 

90 i 

91 s 

700 PQKE52«ZBsFQKE56,2B3PRINT ”{.CLEAR BONNS YELLO 
N R lGNTe ymSTOKC DOUNZ J "s P0KE36B79,27 
710 PRINT 11 {. GREEN DOHN J <C) C SP4CC M9B6C SP4CC iBYtSP 
4CE 7H.T.-50FT. { SPACE y JP { SPACE y mü { SPACE REDy SPYL 
T {SPACEy SYSTEMS {BLACK 

000 FORT=OTD511s READBc P0KE716B+T,B s NEXTsPOKE3606 
9,255 

010 PRINT '* { CLEAR DOHR CYAN VORN RIGHTS >'(>*+,"tP 
RINT " WOHN BLUE D0RN2 RVSON ISIE. € SP4CE >EINC SP4Cf 
y ERFAHRENER { SPACES HELICOPTERPILOT,SOLLEN {LEFT1 " 
820 PRINT"C RVSON UPy EINE { SPACE y StARTBEREITE t SPAC 
ES RVSOFE y * ()»■*-, { RVSON y -RAKETE { SPACE y BETANKEN 
030 PRINT "{ BLACK RVSONy ACHTEN { SPACE y SIE { SPACE y AU 
F {SPACEy DIE < SPACE4 y GEFAEHRLICHEN {SPACEy MINEN { SPA 
CE RVSOFF RED yFK BLACK RVSON SPACE >UND i SPACE y KOLL 
IDIEREN<S£4CE>SIE 

B40 PRINT" < ftKSOW >NICHTC SP4CC 3MITC SP4CO LEBENSWIC 
H-C SP4CC >TIGEN( SP4CF >UTENSILIENC SP4CE6 >(SIBIRIEN 
C SPACE2 y WARTET. . . > 

850 PRINT"< P 0RR2 GREEN RVSON Y TASTE" sP0KE19B.ps WA 
IT19B,1 

060 PRINT"C CLEAR RVSOH RED y UMt SPACE y AUFTANKEN {SP 
4CC >ZUC SP4CC7 >K0ENNEN- { SPACE >LANDEN { SPACE >SIE {SP 
ACEi y AUF {SPACEJ DEN C SPACE y START— t S/MCO UND 
070 PRINT"t«KSOWJLANDERAMPEN<SP4CE>(CflKS0FF>5T5€ 
RVSON ! ). 

080 PRINT" { RVSON PURPLE Ü0NN2 VELL0W>WIRtSP4C£JW 
UENSCHEN { SPACE J IHNEN { SPACE3 ! VIEL {SPACEY SPASS! 

090 PRINT" C D0NN2 GREEN RVSON y TASTE"aPQKE19B-OsWA 
IT190,1 

9,00 F0RT=673T0723: RE ADA: POKET,As NEXTs PRINT" L CLEA 
Ry ":P0KE36B69 f 240s P0KE631,131s P0KE190,1s END 

1000 DATAO,240,0,57,94,252,40,124 

1001 DATAO,15,0,57,94,252,40*124 

1002 DATAO,240,0,24,36,60,24,36 

1003 DATAO,15,0,24,36,60,24,36 

1004 DATAO,240,0,156,122,63,20,62 

1005 DATAO,15,0,156,122,63,20,62 
(006 DATAO,0,0,16,56,16,0,0 

1007 DATA63,63,127,127,127,127,127,127 

1008 DATA129,255,255,255,241,224,192,120 

1009 DATA127,127,127,127,127,127,127,127 

1010 DATA120,192,224,241,255,255,255,129 

1011 DATA127,127,127,127,127,127,255,255 

1012 DATAO,192,192,192,252,252,252,252 

1013 DATA63,63,63,63,127,255,255,255 


<71 > 
< 66 > 
<67 > 
<23B> 
<64> 
< 2 > 
<250> 
<209> 

< 173> 
<52> 
<140> 
<149> 

< 193> 


<09> 

<23> 


<85> 

< 176> 


< 175> 


<44 > 

<33 > 


<49> 

<203> 

< 10 > 

<73> 

< 107> 
<174 > 
<235> 
<37> 
<203> 
<6B> 
<130> 
<233> 

< 170> 

< 10 > 
<235> 
<1O0> 
<91 > 
<09> 

< 190> 


1014 DATA252,252,252,252,254,255,255,255 < 92> 

1015 DATA255,255,255,132,180,109,180,101 <233> 

1016 DATA255,255,255,33,175,161,61,109 <114> 

1017 DATA133,255,255,255,255,255,255,127 <160> 

1018 DATA161,255^255,255,255,255,255,254 <189> 

1019 DATA255,129,129,129,129,129,129,255 <11> 

1020 DATA255,255,0,24,102,24,0,255 <46> 

1021 DATAB,0,0,20,28,20,28,28 <195> 

1022 DATA2B,20,20,20,62,62,34,46 <196 > 

1023 DATA46,34,62,34,46,46,34,62 <137> 

1024 DATA34,46,111,99,127,99,107,99 <14i> 

1025 DATA111,111,127,127,20,20,62,127 <200> 

1026 DATA138,37,144,90,153,1B,164,03 <155> 

1027 DATA120,192,224 * 240,240,252,254,255 < 46> 

1020 DATA1,3,7,15,31,63,127,255 <211> 

1029 DATA255,254,252,240,240,224,192,120 <252>\ 

1030 DATA255,127,63,31,15,7,3,1 <206> 

1031 DATA255,255,255,255,255,255,255,255 <250> 

1032 DATAO,0,0,0,0,0,0,0 <227> 

1033 DATA7,15,31,4,31,3,15,3 <253> 

1034 DATA224,240,240,32,240,192,240,192 <205> 

1035 DATA3,1,3,3,3,1,1,1 <9B> 

1036 DATA192,120,192,192,192,120,12B,12B <175> 

1037 DATA1,1,1,2,1,1,1,1 <56> 

1030 DATA12B,12B,120,64,120,128,120,120 <97> 

1039 DATA129,129,129,129,129,153,255,0 <142> 

1040 DATA255,129,129,129,129,129,255,0 <213> 

1041 DATA255,120,120,255,1,1,255,0 <115> 

1042 DATA255,24,24,24,24,24,24,O <70>^ 

1043 DATA255,129,129,129,129,129,255,0 <216> 

1044 DATA152,176,224,192,224,176,152,0 <8> 

1045 DATA,,,,20,28,62,108 <255> 

1046 DATA110,119,62,50,62,20,0,8 <30> 

1047 DATA224,240,248,32,248,192,240,192 <218> 

1048 DATA1,1,1,1,1,1,1,1 <59> 

1049 DATA1,1,1,1,1,2,3,4 <140> 

1050 DATA5,6,7,7,7,0,9,10 <221> 

1051 DATA11,12,13,14,15,16,16,16 <201> 

1052 DATA16,16,16,16,16,16,16,17 <75> 

1053 DATA13,18,19,20,21,21,22,23 <30 

1054 DATA23,7,7,7,7,8,24,24 <20> 

1055 DATA24,24,24,25,26,26,27,20 <175> 

1056 DATA29,30,30,30,30,30,30,30 <144 > 

1057 DATA31,32,33,34,35,36,37,37 <196> 

1058 DATA37,37,37,37,30,37,39,40 <21> 

1059 DATA12,41,42,43,43,44,45,46 <136> 

1060 DATA47,40,48,40,48,48,49,50 <16S> 

1061 DAT A51,52,53,54,55,56,57,50 <160> 

1062 DATA50,50,50,50,50,50,50,50 <165> 

1063 DATA5B,50,50,0,0,0,0,0 <101> 

1101 DATA162,239,189,,31,157,22,31,189,,151,157, 

22,151 <149> 

1102 DATA202,224,255,208,239,162,255,109,0,30,15 

7,22,30 < 190> 

1103 DATA189,,150,157,22,150,202,224,255,200,239 

,169,32 <02> 

1104 DATA162,0,157,,30,232,224,22,200,248,96 <231> 

1200 END <52> 

ENDE DES LISTINGS 
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Programme 


Teil 2 


VC20 LISTING + CHECKSUMMEN (V VI.O) 


4 PRINT”SEARCHING€SP4C£>F0RCSP4CE>DATAS<SP4C£>" <15> 

5 0PEN1,1 T P T »WOSTOK t SP4CC >3” s DIMA* (50) : PRINT"F0U 

ND”:FORT=1TO50:INPUT41,A*(T>sNEXTsCLOSEI <176> 

6 A*UO) = ”€RIGHT CYAN SPACE ! ' <) *+ * {BLACK SPACE R 

IGHT3!1I ßPACE7 ! "s ft»(24)="{ SF4CE2Q 3"iA$t50)="" <130> 

7 A»<0)="__ I LEFT INST ! I LEFT2 

O! »sB*= H <HOHC DORN <233> 

10 DEFFNX(B)=7900+Bs FX=30720 <191> 

15 XX=2s SC=0: TX=0 s N=0 e POKE36070,5s P0KE36869,255: 
P0KE36879,232 <106> 

20 PRINT” I CLEAR BLACK ! "sM=-l1sB=14sLX=0: BX=2sA»= 

"_ I SPACE !" <157> 

30 G0SUB200: IFM016THEN30 <246> 

50 AX=AX+l+2*(AX=1):P0KE36877,199-AX*40sA4-RIBHT 
» <A*,4>+LEFT» <A»,1) <2> 

55 IFM>58ANDM<02THENPOKE211,14:P0KE214,01-M:SYS5 
0640s PRINTA*” IRO( ff > " < 119> 

59 P0KE37154,127sA=PEEK <37152):P0KE37154,255 <99> 

60 IF<AAND120)=OANDSX=OTHENPOKEFNX<B),32sB=B+l:B 

X=4 <191> 

66 A=PEEK <37151) <104> 

70 IF(AAND16)=OANDSX=OTHENPOKEFNX <B>,32sB=B-lsBX 
=0 <165> 

00 IF(AAND4)=0ANDM>11THEN250 <31> 

90 IF(AANDB)=0THENG0SUB200 <07> 

10O IFPEEK(FNX<B))<>32ANDPEEK<FNX(B))>5THEN300 <121> 

110 POKEFNX <B),BX+AX:POKEFNX <B)+FX,6s BX—2 <72> 

115 IFM>20ANDM<1OOTHENT=760O+INT CRND <1)*506)sIFP 
EEK(T)=32THENP0KET,6 a POKET+FX,2 <175 > 

120 IFSX=OTHEN50 <173> 

130 IFM<30THENLX=LX-10:SC=BC+10:TX=TX+10:IFLX<OT 
HENSX=Os TX=TX-10:SC=SC—IO <44> 


140 IFM >30THENLX=LX+10s SC—SC+1sIFLX>*500THENLX=5 


00 s SX—OsSC=SC-1 <232> 

150 PRINT” C HOHE DORN13 RVSON GREEN ! ”BPC(11)RIGHT 
♦ (” LSP ACE5 J "+STR» <LX),5)" I BLACK <114> 

155 IFTX>=1O0OTHEN36O <2O0> 

160 IFSX=OTHENPRINT" IUP!"SPC (11)"_" <229> 

170 GOT050 <45> 

100 IFPEEK<FNX<B)X6THENP0KEFNX<B> ,32 <25> 

101 RETURN <&7> 

200 GOSUB10O:PRINTB4A»(O)A4(PEEK(7564+M))” I HOME ! 

" :M=M+1rIFPEEK(FNX <B)+22)=20THENSX=1 <244> 

245 RETURN <131> 

250 GOSUB10O:SYS673sPRINT” I HOME ! " A*(O)A4(PEEK(M+ 

7540)):M=M-lsIFSX=1THENSX=0:GOTO150 <143> 

260 G0T0100 <64> 

300 XX=XX-lsIFPEEK(FNX<B> ><=26ANDPEEK(FNX<B) >06 
THENXX=0 <50> 

310 POKEFNX(B),26:PÜKE36077,ÖrT=LOG<*>sLX=OsIFXX 
>0THEN20 <235> 

330 PRINT” I CLEAR D0RR3 RVSON CYAN SPACE2 I SCOREs" 

SC s POKE190,0:IFHI<SCTHENHI=SC <149> 

335 PRINT” I RVSON D0RN2 !HISCOREs “HI <12> 

340 IFPEEK(197)=64THEN340 <121> 

350 G0T015 <233> 

360 N=N+1sIFN>1OTHENN=10 <211> 

370 6C=SC+1000:TX=-500*N <44> 

300 A »="I HOME RED RIGHT3 D0RN8 7UI D0RN LEFT 7VID0H 
N LEFT 7WI D0RN LEFT 7XI D0HN LEFT 7YI D0RN LEFT 7-IRED 
VORN LEFT !.I DOHN LEFT SPACE! ":PR1NTLEFT»(A4.37) 
sT=L0G < n) <179> 

390 F0RT=0T022sSYS673sPRINTA4sB=LOG< * )sNEXTiA4*" 

”s G0T020 <B5> 

ENDE DES L1STINGS 


feil 3 


VC20 LISTING + CHECKSUMMEN (V VI-O) 


0 G0TO7O 

1 t 

2 i 
IO 


< 135> 
<59> 
<60 > 
<230> 


20 WtiSTOK-GENERATOR 
30 ****************** 
40 <C) 1906 H.T.SGFT 
50 JP 

60 SPYLT SYSTEMS 

61 **#**•*«*****#+*#* 
62 s 


63 s 

70 PR INT “BI NDC SP4CO SIE< SP4Cf> BEREIT?" s POKE 190-0 
s WAIT190, 1 

00 OPEN1,1,1, “MOSTOK < 5^4^0 3" s FORT=lTO50a RE AD A4 1 
PRINT41,A»:NEXT:CLOSEI 
90 PRINT”< P0JW2 >FERTIG."sEND 
100 DATA” I LEFT SPACE21 > * 

110 DATA” I LEFT SPACE2 RED SPACE 7UL SPACE BLACK SP 
ACE16 !" 

120 DATA” I LEFT SPACE2 RED SPACE JVL SPACE BLACK SP 
ACE5 YELLOR !?✓C BLACK SPACE9 >” 

130 DATA” I LEFT SPACE RHlTE !BMIREDViiI SPACE6 YELLO 
Hl**C BLACK SPACE9 7" 

140 DATA» I LEFT SPACE NH1TE! 1JIRED! X I SPACE6 YELLO 
R!Y.Z*I SPACE PURPLE!STSIBLACK SPACES ! ” 

150 DATA” I LEFT SPACE RHITE!K<LIRED!YIBLACK SPACE3 

!\ _C I SPACE2 ! " 

160 DATA" I R1GNT1Q SPACE2 LEFT !" 

170 DATA» I RIGHT17 !1I SPACE2 !" 

100 DATA» I RIGHT SPACES RIGNT4 ! ! I SPACE6 ! 11 

190 DATA” I RIGMT SPACE CYAN ! ' I BLACK SPACE RI_ 

GHT3 !3 ISPACE7 !” 

200 DATA” I RIGHT SPACES RIGHT2!1ISPACES!" 

210 DATA» I RIGHT10 ! 3 < SPACEB !\ 

220 DATA” I R1GRT4 SPACE3 RIGHT2 ÜL SPACE9 !" 

230 DATA» L RIGHT4 SPACE15 !» 

235 DATA» L R1GRT4 SPACE14 !\ 

240 DATA” C RIGHT4 SPACE3 !» 

250 DATA» L R1GHT4 SPACE3 R1GMT3 ! 3 L SPACET !^ 

260 DATA" L R1GNT4 SPACE8 !\L R1GMT2 !IC SPACE3 !" 

270 DATA” C RIGRT4 >C L SPACE6 !\L R1GMT4 SPACES! m 
200 DATA» L R1GHT5 !C L SPACE3 !\L R1GRT6 SPACE3 !" 

290 DATA” I R1GRT16 SPACE3 !” 

300 DATA” L RIGMTIG SPACE3 !* 

310 DATA» L RIGHT16 S PACE4 ! ” 

320 DATA” L SPACE20 !" 

330 DATA”C L SPACE4 !\_C<S PACE6!\" 

340 DATA” L RIGRT SPACE4 >» 

350 DATA” i RIGNT SPACE4 RIGHT2 ! 3 t SPACE7 !^ 

360 DATA" L R1GHT SPACE4 RIGHT2 SPACE11 !“ 

370 DATA” i RIGNT SPACE4 RIGHT2 SPACE2 ! LL SPACE7 !" 
300 DATA" L RIGRT SPACE4 RIGHT2 SPACE2 R1GHT4 SPAC 
" 

390 DATA” <. R1GNT SPACE4 R1GMT2 SPACE2! ~C R1GMT3 SP 
ACES !" 

400 DATA” L RIGRT SPACE4 RIGHT2 SPACE3 RIGRT2 ! 3 LSP 
ACES !" 

410 DATA” {. RIGHT SPACE4 R1GMT2 SPACE3 RJGRT2 SPAC 
E6! ” 

420 DATA" C RIGRT SPACE4 RZGMT2 SPACE3 RIGHT! 3 < SP4 
CE6 ! " 

430 DATA" L R1GHT SPACE4 R1GHT2 SPACE3 RIGHT SPACE 

7!~ 

440 DATA” L R1GHT SPACE4 !*!L SPACE3 RIGHT SPACES 7* 
450 DATA” L R1GHT SP4CE9 RIGHT S PACE9 !» 

460 DATA” {. RIGHT SPACE9 RIGHT SPACE9 I » 

470 DATA" LRIGHT! _C LSPACE3!\ _ i RIGHT SPACE9 I ” 

400 DATA"_ L SPACE9 I " 

490 DATA” K. RIGHT91 3 L SPACE9 ! " 

500 DATA”C RIGHT3 I 3 I SPACE15 >" 


510 

DATA"C RIGHT3 

SPACE16!" 


520 

DATA" LR1GHT3 

1 

1 

1 

l 

IS 

3 

Si 

I CSPACE4! " 

530 

DATA” IR1GNT3 

SPACE4!\ 

<.SPACE4! J * 

540 

DATA” C RIGHT3 

SPACE3!\ 

ISPACES!" 

550 

DATA"C RIGHT3 

SPACE2!\ 

ISPACES!" 

560 

DATA” iRIGHT3 

SPACE2! 

ISPACES!" 

570 

DATA" LR1GHT3 

SPACE2! 

C ISPACE4!" 


500 DATA» L RIGHT3 SPACE9 !* _< SP4CE4 >» 

590 DATA" LRIGHT3 SPACE10 7* _C L SPACE3 !" 

600 DATA» L R1GHT3 SPACE11! _ I SPACE3 !” 

610 DATA" L R1GHT3 SPACE11 7* _ L SPACE3 !" 

620 DATA" <. R1GHT3 SPACE 12! 1 L SPACE3 !" 

630 DATA" K. R1GHT3 SPACE3 BLUE imC BLACK SPACE 12 ! ” 
640 DATA" L RIGHT3 SPACE3 BLUE 70PC BLACK SPACE12 !" 
650 DATA” I R1GHT3! C i SPACE2 BLUE 7QHL SPACE4 GREEN ! S 
TSL BLACK SPACE4 !\ 

660 DATA 

ENDE DES LISTINGS 


<246> 
<2> 
<195> 
<20 > 
<41 > 
<33> 

< 120 > 
< 121 > 

<71 > 

<156> 

<99> 

< 20 > 

<170> 

<55> 

<239> 

<64> 

< 100 > 

< 133> 
<02 > 
<23B> 

<37 > 

<223> 

<57 > 

<110> 

<227> 

<232> 

< 21 > 

<215> 

<73> 

<43> 

<146> 

<94> 

< 144> 
<84 > 
<06> 
<137> 
<67> 
<16B> 
<150> 
<155> 

<16> 

<30> 

<0> 

< 127> 

<9> 

<169> 

<249> 

<160> 

< 170> 
<06> 
<150> 
<61 > 

< 114> 

< 14> 
<243> 

< 193> 

< 191> 
<196> 
<230> 
< 22 > 
< 102 > 
<31 > 
<149> 
<142> 
<04> 
< 120 > 
<lBO> 

<40> 

<25> 


18 


©emfpwüm mit 


11/86 





























































































































































































































































korrekteren 


Compute mit 
Sonderheft 3 


Ein kleiner Fehler hatte sich lei¬ 
der auch in dem Programm ’Bre- 
ak Out* aus dem Sonderheft 3 ein¬ 
geschlichen. Nach einem kurzen 


Eingriff war der Fehler sofort be¬ 
hoben. Hier nun die beiden kori- 
gierten Zeilen. 

Scrumble Heft 10 

Tja, was soll man sagen. Der klei¬ 
ne Druckteufel hat mal wieder 
zugeschlagen. Oder, vielmehr die 


liebe Technik hat uns wieder ein¬ 
mal gezeigt, daß sie ebenfalls 
nicht vollkommen ist. Ünser 
VC-20 war es in diesem Fall, der 
seinen Geist auf gegeben hat. Si¬ 
cherlich sehr ärgerlich wenn man 
gerade nach mühevoller Arbeit al¬ 
les schön korrekt eingegeben hat 
und dann feststellen muß, daß der 
zweite Teil fehlerhaft ist. Aber 


wer wird denn gleich aufgeben, 
wenn man bedenkt, daß der erste 
Teil schon mit einem Haufen Ar¬ 
beit verbunden war und schon 
eingeeeben ist. Hier ist nun der 
korrekte zweite Teil von Scrum¬ 
ble, damit Sie endlich in den Spiel¬ 
genuß kommen können. Naja, 
keiner ist vollkommen, auch 
Computer nicht! 


Hut >1*53 c9 82 *© 06 c9 03 -F6 02 

DreaK wui >1*60 d0 04 26 90 ic 60 *5 dS 




VC20 LISTING + CHECKSUMMEN (VC Vi-O) 


1 REM - SCRUMBLE HAUPTPROGRAMM . <174> 

2 REM - (C) 1905 BY MARTIN RIEDL . <215> 

10 P0KE55,0s P0KE56,20s CLRiG0SUB9000 <252> 

160 PRINT" C CLEAR y ”iP0KE36B79 f 25s POKE3606 
9,255 <13> 

170 PP=0 <112> 

190 PRINT” t CLEAR D0HN23 y 11 tPOKE36B79 ■ Z5s R 

EM 23 RUNTER <227> 

200 A=B169:B=eiB0:C=7B44:L=30720sT2=12:T 

3=1 <197> 

219 REM HAUPTPROGRAMM <151> 

220 PüKEC,1 ePOKEC—22,O <244> 

230 PP=PP+1 <15> 

240 IFPP=100THENB=B—1 <13> 

250 IFPP=300THENA=A+1 <1> 

260 IFPP=500THENB=B-1 <54 > 

270 IFPP=700THENA=A+1 <42> 

2B0 D=INT(B*RND<1>) <19> 

290 IFD=1THENX=X-1 <23B> 

300 IFD=6THENX=X+1sPOKEA,10sPOKEA+L,O <16> 

305 IFPP=200THENT2=4:T3=0 s P0KE36B79,26 <106 > 

310 IFPP=400THENT2—2sT3=6:P0KE36B79,27 <226> 

315 I FPP=600THENT2=4 s T3=0 a POKE36079,26 < 136 > 

330 1FPP>900THENGDT010020 < 36 > 

360 POKEC,32sPOKEC-22,32 <229> 

370 A=A+X:B=B+X <179> 

3B0 POKEA,10a POKEA+L,0a POKEB,10:POKEB+L, 

0:X=0 <180> 

301 W=INT(RND <1)*6)+1 <142> 

3B2 IFW=1THENPOKEA+1,B:P0KEA+l+L,0:G0t03 

88 <193> 

3B3 IFW=6THENP0KEB—1,9:P0KEB-1+L,0 <56> 

3B4 K=INT(RNDU > *6)+1 <133> 

3B5 IFK=1THENPOKEA+1,6a POKEA+1+L,3s GOT03 
BB <210> 

306 IFK=6THENP0KEA+1,3sP0KEA+l+L,4sG0T03 

-80 <218> 

307 IFK=3THENT1=INT(RND(1)*((B-1»-(A+1)) 

)+1 * POKEA+T1,T2 s POKEA+T1+L,T3s GQT03BB < 72 > 

3BB IFPP=750ÜRPP=7750RPP=B000RPP=B0250RP 
P=0O5OTHENPOKE36B79,29a POKEA+l,13sPOKEA+ 

1+L,7 <37> 

309 PRINT <31> 

390 IFA=0164THENA=A+lsB=B+l <7> 

400 IFB=01B5THENA=A-1:B=B-1 <6B> 

410 GOSUBIOOO <202> 

440 C=C+Y <142> 

450 IFPEEK (0 = 1 OORPEEK (C) =80RPEEK (O =90R 
PEEK(C)=60RPEEK(C)=3THEN10010 <132> 

455 IFPEEK(O=4THEN100IO <93> 

457 IFPEEK(C> =130RPEEK(C—22> = 13THEN10000 <140> 

460 IFPEEK(C-22)=1OORPEEK(C-22)=B0RPEEK( 

C—22)=90RPEEK(C-22)=60RPEEK(C-22)=3THEN1 
0010 <96> 

465 IFPEEK(C-22)«20RPEEK(C-22)=4THEN1001 
O <31 > 

470 POKEC,1:POKEC+L,2a POKEC—22,0a POKEC—2 
2+L,2aY=0 <36> 

400 IFZ>0THENG0SUB2000 <242> 

490 IFG>OTHENGOSUB3000 <221> 

590 GDT0230 <150> 

615 REM KAPUTT! <134> 

620 FORT=0T02000sNEXT <39> 

622 PP=PP+SC <159> 

625 POKE36B79■ 127sPRINT ”{. BLUE D0HN6 S PAC 
C3>SCOREC SP4CE >s”aPPaIFPP>HPTHENHP=PP <60> 

630 PRINT”<D0WWl>HIGHSC0REISP4CE>s";HP <211> 
640 PRINT” t P 0MN3 R/G/#T3IN0CH€SMC£JMAL?< 

SPACE - } (J/N) » < 163> 

650 GETA4 <27> 


660 IFA^N'-THENPRINT" CQLEAR }" aNEU: END <77> 
670 IFA4=”J”THENSC=0 s Z=0 sG=0 e GOTO160 <165 > 

680 GGT0650 <254> 

730 PRINT" K.CLEAR BLUEJ » :P0KE36B79.27:POK 
E36B69,240sEND <166 > 

999 REM JOYSTICKABFRAGE <136> 

1000 SYS02B:IFPEEK(7S1)=0THENY=0aRETURN <34> 

1010 IFPEEK(781)=4THENY=Y—1 <136> 

1020 IFPEEK <781)=32THENY=Y+i <B5> 

1030 IFZ>0THEN1050 <45> 

1040 IFPEEK(701)=BTHENZ=I:S=C-1 <21B> 

1050 IFG >OTHENRETURN <161> 

1060 IFPEEK(701)=0THENG=1s F=C+22c RETURN <57> 

1070 RETURN <192> 

1999 REM BOMBE (POKEN UND AUF TREFFER UE 

BERPRUEFEN) <100> 

2000 POKES—21,32 <207> 

2050 IFPEEK(S)=3THENP0KES,11:POKES+L,2a Z 

=0 s SC=SC+1Os GOSUB2200a POKES,32 s RETURN <110> 

2060 IFPEEK(S)=6THENPQKES,11a POKES+L,2:Z 
=0 s SC=SC+10 s G0SUB22001POKES,32 s RETURN <141> 

2065 IFPEEK(S)=2THENP0KES t 11:P0KES+L,2a Z 
=0 s SC=SC+10 s GOBUB2200s POKES,32 a RETURN <118> 

2067 IFPEEK(S)=13THENP0KES,11s POKES+L,2 s 
Z=0:SC=5C+50:G0SUB2200:GOTOIOOOO <26> 

2070 IFPEEK <S)=BTHENZ=0:RETURN <19B> 

20B0 IFPEEK(S)=10THENZ=0rRETURN <202> 

2005 IFPEEK(S)=4THENZ=0:RETURN <105> 

20B7 POKES,5 s POKES+L,5 <176 > 

2090 S=S—lsZ=l <150> 

2100 RETURN <202> 

2200 POKE36870,15s P0KE36B77,230a FORT=1TO 

20 s NEXT:P0KE3687B,O s P0KE36B77,0 <114 > 

2210 RETURN <56> 

2999 REM LASER (POKEN UND AUF TREFFER UE 

BERPRUEFEN) <175 > 

3000 POKEF—44,32 <1B4> 

3050 IFPEEK(F)=3ÜRPEEK < F)=60RPEEK(F > =20R 

PEEK(F)=13THENGOSUB2200a60T04000 <124> 

3055 IFPEEK <F)=130RPEEK(F+22)=13THENSC=S 
C+50s G0SUB2200s GOTOIOOOO < 20> 

3060 IFPEEK(F+22)=60RPEEK(F+22)=30RPEEK( 

F+22)=2THENG0SUB2200iG0T04010 <246> 

3070 IFPEEK(F)=80RPEEK(F)=90RPEEK(F+22)= 

BORPEEK(F+22)=9THENB=Os RETURN <206> 

30BO IFPEEK(F)=1OORPEEK(F+22)=1OORPEEK <F 
)=40RPEEK(F+22)=4THENB=0lRETURN <162> 

30B5 POKEF,7s POKEF+L,5 <45> 

3090 F=F+22iG=l <9B> 

3095 IFF >801OTHENPOKEF-22,32 1 G=0 s RETURN < 90> 
3100 RETURN <1B2> 

3999 REM TREFFER <100> 

4000 POKEF,11s POKEF+L,2s G=0s SC=SC+1Os FOR 

T=lT010sNEXTaPOKEF,32aRETURN <132> 

4010 POKEF+22,11iP0KEF+22+L,2aB=0sSC=SC+ 

10 a FORT=1TO10 a NEX T:POKEF+22,32s RETURN <120> 

B999 REM JOYSTICK - DATEN EINLESEN <209> 

9000 DATA24,169,0,237,17,145,41,127,141, 
13,3,169,0,141,34,145,24,237,32,145 <221> 

9010 DATA24,109,13,3,74,74,170,169,255,1 
41,34,145,96 <155> 

9030 FORT=0T032aREADIa P0KEB2B+T,Ia NEXT <236> 
9050 RETURN <11> 

10000 P0KE36B69-240s PRINT “C CLEAR R1GRT2> 

MISSIONI SPA CE1 COMPLETED”a G0T0622 <112> 

10010 POKE36B69.24QsPRINT »C CLEAR R1GMT3 > 

LEIDER I SPACE y VERLOREN"s G0TO622 <156 > 

10020 P0KE36B69.240aPRINT "C CLEAR ySlEt SPA 
CE>HABENC SP4CO DAS I SP4CO MYSTERY {. DORN SP 
ACEy LE I DER I SPACE y NICHT C SP4CO ERUISCHT ” s G 
OTD622 <61> 

ENDE DES LISTINGS 


TI/86 
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Programme —^ 

IOP-BALL 


Tap-Ball ist ein Flipper Automat 
mit guter Grafik und gutem 
Sound Wie ein Flipper funktio' 
niert, sollte rriittlerweile allge¬ 
mein bekannt sein. 

Gespielt wird mit den Tasten ”Z” 
und mit der "Pfund-Taste". Insge¬ 
samt stehen einem fünf Bälle zur 


Verfügung um auf High-Score- 

E zu gehen. Sind diese ver¬ 
lebt, beginnt das ganze Spiel¬ 
chen von neuem. 

Vorsicht: Nach dem eintippen 
darf KEIN ”Renumber" eingege¬ 
ben werden* da sonst das Spiel 
nicht lauffähig ist. 



My lord! Dieser junge Untertan behauptet ebenfalls ein König zu sein. Er schimpft sich Flipperkönig 
of Sherwood. 


+CHR*(13)+ M RUN”+CHR* (13) <103> 

160 KEY2, H LOAD"+CHR* <34) +"TOP-BALL (2) "+CHR* (34) + 

CHR$ (13) + "RUN ,, +CHR4 (13) < 176> 

170 P0KE652B6,PEEK (65286)AND239 <29> 

180 POKE56, 47x V=652B0 <16> 

190 POKEV+l8,PEEK(V+18)AND251 <252> 

200 PDKEV+19,PEEK(V+19)AND30R4B <249> 

210 RESTORE450:F0RT=B32T0B49cREADA:POKET,As NEXT: 

SYSB32iRUN250 <135> 

220 ^ <245> 

230 REM» DATAS WERDEN EINGELESEN = <231> 

240 REM====================*=====*======» < 9 > 

250 P0KE56,47s V=652B0 <86> 

260 FOKEV+18,PEEK(V+18)AND251 <67> 

270 POKEV>19,PEEK < V+19)AND3OR40 < 64 > 

280 RESTORE450iFORT—B32TGB49iREADA <108> 

290 X=X+A <212> 

300 POKET,AxNEXTxSYS032 <196> 

310 IFX< >2115THEN1570 <130> 


320 RESTORE460sFORT*12296T012544s READA <9> 

330 Y=Y+A <0> 

340 IFA>—1THENP0KET,AsNEXT <109> 

350 IFY<>36B34THEN1580 <69> 

360 FORT — 12793T013300sREADA <81> 

370 Z=Z+A <44> 

380 IFA>-lTHENPOKET,AaNEXT <149> 

390 IFZ<>523B4THEN1580 <102> 

400 RESTORE1400 1 FORT*12568T012671 1 READA s POKET , A t 
NEXT <21> 

410 POKE652B6-PEEK (65286) OR16t PR1NT W I CLEAR1 »i NEW <6> 
420 REM============================== < 164> 

430 REM=DATA'S FUER NEUEN ZEICHEN-SATZ» <182> 

440 REM==============*============ < 1B4> 

450 DATA162,0,1B9,0,206,157,0,48,189,0,209,157,0 
,49,202,208,241,96 <230> 

460 DATA127,255,245,24B,248,245,255,127 <166> 

470 DATA254,255,175,31,31,175,255,254 <170> 

480 DATA7,31,63,63,122,122,244,244 <240> 

490 DATA224,248,252,252,190,190,95,95 <176> 

500 DATA244,244,122,122,63,63,31,7 <211> 

510 DATA95,95,190,190,252,252,248,224 <196> 

520 DATA62,127,127,127,127,127,127,127 <197> 

530 DATA124,254,254,254,254,254,254,254 <104> 

540 DATA127,127,127,127,63,63,31,7 <144> 

550 DATA254,254,254,254,252,252,240,224 <39> 

560 DATAO,0,0,255,90,90,90,255 <32> 

570 DATAO,0,60,126,126,126,60,0 <15B> 

580 DATAO,0,3,31,63,63,127,127 <231> 

590 DATAO,0,255,250,255,255,255,255 <41> 

600 DATAO,O,192,24B,252,252,254,254 <170> 

610 DATA127,127,127,127,127,127,127,127 <91> 

620 DATA254,254,254,254,254,254,254,254 < 205> 

630 DATA252,252,252,252,252,252,252,252 <103> 

640 DATA24B,248,248,24B,248,248,240,248 <153 > 

650 DATA240,240,240,240,240,240,240,240 <35> 

660 DATA224,224,224,224,224,224,224,224 < 93 > 

670 DATA255,255,255,255,255,255,255,255 <143> 

680 DATA255,255,255,248,224,192,12B;i2B <57> 

690 DATA255,255,255,0,0,0,0,0 <240> 

700 DATA255,255,0,0,0,0,0,0 <139> 

710 DATA255,0,0,0,0,0,0,0 <30> 

720 DATA255,255,255,31,7,3,1,1 <99> 

730 DATA124,126,110,110,126,96,96,96 <164> 

740 DATA63,63,63,63,63,63,63,63 <169> 

750 DATA31,31,31,31,31,31,31,31 <175> 

760 DATA15,15,15,15,15,15,15,15 <161> 

770 DATAO,0,0,0,0,0,0,0 <220> 






780 

DATA7,7,7,7,7,7,7,7 

<222> 





790 

DATA3,15,31,31,63,63,63,63 

<199> 

C-16 LI5TING + CHECKSUMMEN (ÜC VI- 

0) 


800 

DATA192,240,248,240,252,252,252,252 

<227> 





810 

DATA63,63,63,63,63,63,63,63 

<240> 




< 121 > 

820 

DATA128,192,192,240,254,255,255,255 

< 176> 

20 REM ** 

TOP-BALL C—1906 

** 

<154> 

B30 

DATAO,0,0,0,0,255,255,255 

<93> 

30 REM ** 


** 

<249> 

840 

DATAO,0,0,0,0,192,252,255 

<47> 

40 REM #* 

WRITTEN BY 

*« 

<10> 

850 

DATA31,31,31,31,15,15,3,0 

<28 > 

50 REM ** 


** 

< 13> 

860 

DATA252,244,244,244,244,232,208,64 

<230> 

60 REM ** 

WERNER BEMBOM 

** 

<42> 

870 

DATA255,60,60,60,60,24,0,0 

<139> 

70 REM ** 


** 

<33> 

880 

DATA255,15,15,15,15,15,15,7 

<81 > 

BO REM ** 

TEL-105977/1753 

** 

<42> 

890 

DATA255,255,254,240,224,192,128,128 

<0> 




<201 > 

900 

DATA85,85,05,40,40,40,40,40 

<212> 

lOO t 



<158> 

910 

DATAO,0,0,85,85,B5,40,40 

<96> 

110 x 



<16B> 

920 

DATA24,60,60,60,60,60,255,255 

<214> 

120 REM- 



< 119> 

930 

DATA128,192,224,240,248,252,254,255 

<204> 

130 REM» 

KEY-TASTEN WERDEN BELEGT 

» 

< 107> 

940 

DATA1,3,7,15,31,63,127,255 

<122> 

140 REM== 



<139> 

950 

DATA7,7,7,7,7,7,7,7 

<136> 

150 KEY1, H 

DLOAD M +CHR4(34)+ M TOP—BALL(2) M +CHR*(34> 


960 

DATA224,224,224,224,224,224,224,224 

<13B> 


970 DATA192,96,48,24,12,6,3,1 

980 DATA1,3,6,12,24,48,96,192 

990 DATA244,244,244,244,245,245,245,245 

1000 DATA245,245,245,245,245,245,245,245 

1010 DATA245,245,245,245,244,244,244,244 

1020 DATA95,95,95,95,175,175,175,175 

1030 DATA175,175,175,175,175,175,175,175 

1040 DATA175,175,175,175,95,95,95,95 

1050 DATAO,90,90,90,255,0,0,0 

1060 DATAO,0,60,44,44,60,0,0 

1070 DATAO,126,102,102,102,126,0,0 

10B0 DATAO,126,60,24,126,60,24,0 

1090 DATA224,254,254,254,24B,224,192,128 

1100 DATAO,0,0,0,0,0,0,0 

1110 DATA3,7,14,60,120,248,240,224 

1120 DATA1,2,4,8,16,32,64,12B 

1130 DATA12B,64,32,16,8,4,2,1 

1140 DATA192,224 j 112,60,30,31,15,7 

1150 DATAO,O,126,255,255,120,0,0 


<70> 
<186> 
<32> 
<82 > 
<244> 

< 194> 

< 137> 
<167> 
<217> 
<213> 
<37> 
<125> 

< 179> 
<39> 
<7> 

< 107> 

< 137> 

< 144> 
<99> 
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Programme 


1160 DATAO,0,0,254,255,0,0,0 

1170 DATAO,0,0,127,255,0,0,0 

1180 DATAO,0,126,255,255,30,0,0 

1190 DATAO,0,0,24,24,0,0,0 

1200 DATAO,0,0,24,0,0,0,0 

1210 DATA126,110,110,126,126,110,110,110 

1220 DATA124,110,110,124,110,110,126,124 

1230 DATA126,126,96,96,96,96,126,126 

1240 DATA126,126,110,110,1IO,110,126,126 

1250 DATA126,126,96,124,124,96,126,126 

1260 DATA110,110,110,126,126,110,110,110 

1270 DATA56,56,56,56,56,56,56,56 

12B0 DATA96,96,96,96,96,96,126,126 

1290, DATA195,231,255,255,219,195,195,195 

1300 DATA195,227,243,251,219,207,199,195 

1310 DATA124,126,110,110,124,110,110,110 

1320 DATA126,126,96,96,126,6,6,126 

1330 DATA126,126,56,56,56,56,56,56 

1340 DATA195,195,195,219,255,255,231,195 

1350 DATA195,195,231,126,60,56,56,56 

1360 DATA60,66,153,161,161,153,66,60 

1370 DATA6,6,2,2,0,0,0,0 

13B0 DATA0,0,0,126,126,0,0,0 

1390 DATA195,195,195,195,195,195,255,126 

1400 DATAO,0,0,0,3,31,63,127 

1410 DATAO,0,15,255,255,255,255,255 

1420 DATAO,O,240,255,255,255,255,255 

1430 DATAO,0,0,0,192,248,252,254 

1440 DATA127,255,255,255,255,255,255,127 

1450 DATAO,231,126,60,60,126,231,0 

1460 DATA254,255,255,255,255,255,255,254 

1470 DATA127,63,31,3,0,0,0,0 

14B0 DATA255,255,255,255,255,15,0,0 

1490 DATA255,255,255,255,255,240,0,0 

1500 DATA254,252,240,192,0,0,0,0 

1510 DATA126,96,96,111,110,110,126,124 

1520 DATA110,110, HO, 110, 110, 126,60,24 

1530 DATA25S,255,255,255,255,255,255,255 

1540 REM==========«================-:= 

1550 REM= FEHLER-MELDUNG DER DATA’S = 

1560 REM============================== 

1570 P0KE652B6,PEEK <652B6> DR16:PRINT" C CLEAR !"s CH 
AR1,6,12,"FEHLERCSP4CE>INC SPACE 1 DER C SPACE ! DATA-R 
EIHECSP4C£>450" * END 

15BO PDKE65286,PEEK(652B6> OR16 s PRINT" C CLEAR !“iCH 
AR1,10,12, M FEHLERCSF4CE1IN<SPAC£> DEN{£££££>DATA' 
S" 

1590 SYS832tEND 
ENDE DES LIST1NGS 


Teil 2 


<15> 

< 20 > 

<7> 

<111> 

<223> 

< 82 > 

<11> 

<79> 

<79> 

< 192> 

< 105> 
<157> 
<219> 
< 212 > 

< 139> 
<79> 
<249> 

< 197> 
<46> 
<251 > 
<60> 
<110> 

< 1B4> 
<247> 
<197> 
< 202 > 
<59> 
<9> 
<86 > 

< 152> 

< 132> 
<1BB> 
<96> 
<161 > 
<127> 
<240> 
<43> 
<23B> 
<44> 
<253> 
<64> 


<76> 


<206> 

<205> 


C—16 LISTING + CHECKSUMMEN (DC VI.O) 

10 REST0RE20:F0RTX=lT05s READTY(TX)sNEXTTX 
20 DATA—39,—39,—40,—41,“41 
30 12=38.9s U2=39.9 

40 FORI1=1T010:12=12+.liI4=I2*-1:I3(Il)=I4rNEXTI 
1 

50 FÜRU1=1T010:U2=U2+.1:U4=U2*-1sU3(Ul>=U4:NEXTU 
1 

60 A=-40:B=3174sPU=0s S=—1024 

70 COLORO,1:COLOR4,1sCOLORl,15,1 

80 PRINT" CCt£M>": J=177:PU=0:V0L8:L=5: Jl=l 

90 A*="CW£D CK UP ST DOHN LEFT SPAC EJ "sB»="CREP 

CG Qt UP LEFT SPACE y "g C »="C SPACE RED UP LEFT SS 

DOHN CO! "=D *="C SPACE RED DOHN LEFT CH CH" 

lOO V*=" C L.BLU SO SPACE i 1986C SPACE D0HN2 LEFT4 B 

L.GRN CU CJ CE CY2 CP CH SPACE CD CO)" 

HO HS="C PURPLE CU CP CJ CH CP CJ SPACE D0HN2 LE 
FT5 D.BLUE CD CP CH CD CS CH ?" 

120 G0T0150 

130 GETX*: IFXe= ,1 CSP4C£> ,, THEN150 

140 G0T0130 

150 PRINT 11 C CLEA R! " 

170 CHAR1 \ 16^1I"PC YEHflHJ VWXXVYYZZZZZZYYYXXrVCP. 
BLUE y Q 

180 CHAR1■16.2. "PC YELLOH IRC SPACEll D.BLUE y CD L SPA 
CE3 RED FLASHON S- FLASHOFF SPACE YELLOH IPC D.BLU 
61Q 

190 CHAR1.16,3. "PC YELLOH ISC CYAN C- L.BLU SA SB S 
PACE2 PURPLEIQCSPACEIHCSPACE3 D.BLUEIEFCSPACE2 G 


<82> 

<227> 

<243> 

< 19> 

<I13> 
<241 > 

< 105> 
<145> 


<241 > 
<121 > 

<250> 

< 194> 

< 105> 
<20B> 
<lBO> 
<89 > 

<24 > 


<53> 


RktN IPBC SPACE YELLOH ! 3 ( P.flltfO Q <219> 

200 CHARl.16.4. u PC YELLOH! T{ SPACE L.BLU SCIRC SPAC 
E2 PURPLE ? I CBL^GRMKC pURPLE ! J CSPA C EjO Y£LLOM?~™ 

.B LUE yQ <75> 

210 0HAR1.16.5. "PC YC/.LOJ/J UC CYAM L.BLU IPQC SPAC 

EIS YELLOU y C D.BLUE IQ <30> 

220 CHARl, 16,6, "PCYEHÖffJUCSPACE L.BLUi yyC SPACEl 
2 SA SB SPACE YELLOH S* D.BLUE yQ <22> 

230 CHAR1■16.7. u PC YELLOH !UC CYAN C- L.BLU iyyC RVSO 
Ny I C RVSOFF SPACE4 CTRLL SPACE7 IPQC CYAN C= YELLOH 
S* D.BLUE IQ <1B9> 

240 CHAR1 ■ 16,8, n PC YELLOH !UC SPACE L.BLU iyyyyyCRVS 
ONyZZYYL RVSOFF RED CG C± SPACE CH CV_ L.BZtfl VVCSP 
ACE YELLOH S* D.BLUE IQ <89> 

250 CHAR1.16.9. n P C YE LLOH IT CCY AN Czl 
SPACE RED S 7 L.BLU SJ gH SPACE6 IPQC SPACE YELLOH 
S# D.BLUE yQ <125> 

260 CHAR1.16,10. n PC YELL0H !3C SPACE L.BLU! 1YCSH S£ 

ACE 11 SCIRCCYAN C-; YELLOH y C D.BLUE IQ <1B> 

270 CHAR1.16.11, n PC YELLOH !RC CYAN C^ L.BLU SG S£ 

SPACE12 SCIRCSPACE YELLOH !^C D.BLUE !Q <205> 

2B0 CHAR1.16,12."P L YELLOH SK SPACE15 L.BLU SG SN 
SPACE YELLOH y1L D.BLUE yQ <16> 

290 CHAR1.16.13, "PL SPACE19 YELLOH SG D.BLUE IQ <12B> 

300 CHAR1,16,14,"PCSP4CE201Q <244> 

310 CHAR1,16.15,"PC SPACE SN SPACE YL.GRN SQ D.BL 
UE_ SPACE1E ?G <170> 

320 CHAR1,16,16,"PCBBW SL D.BLUEi yC SPACE YL.GRN 
SQ SPACE GREEN inC D.BLUE SU SPACES SX GREENI OCYL. 

GRN SPACE SR SPACE D.BLUE yQ <44> 

330 CHAR1.16.17, "PyyC YELLQH !«C YL.GRN SQ RED FLAS 
NON S^ FLASHOFF GREEN iyC D.BLUE SV_ SPACES SY GREE 
NiyCRED FLASHON FLASHOFF YL.GRN SR YELLOH y «LP 
.BLUE yQ < 127> 

340 CHAR1.16.18. "PCSHVC SPACC YL.GRN SQ SPACE GR 
EENiyC D.BLUE SV SPACES SU GREEN iyC SPACE YL.GRN S 
R SPACE D.BLUE yQ <206> 

350 CHAR.l ,16,19, "PCSW1VCSPACE YL.GRN SQ SPACE GR 

EEN !1 C D.BLUE SH SPACES SZ GREEN !JC SPACE YL.GRN S 
R SPACE D.BLUE yQ <216> 

360 CHAR1,16,20, "PWCS/MCE YL.GRN SQ SPACE 13 CI 
HHITE S\_ D.BLUE SP?Q <219> 

370 CHAR1.16.21 , »P C RVSON SS RVSOF£?VtSO HHITE S\_ 

YL.GRN CT SPACE 11 CI_ HHITE S± D.BLUE SP>VQ <18B> 

3B0 CHAR1,16,22, "PVCBFSOW SS RVSOFF?\fiSO HHITE S 
i BL.GRN RVSON SO RVSOFF ! VV {RED CG C+ SPACE CH C 
BL.GRN iyyC RVSON SP RVSOFF HHITE S\ D.BLUE SPJV 
C RVSON ST RVSOFF I Q <H> 

390 CHAR1,16,23, "PCRVSON. SS RVSOFF IV( RVSON SS RV 

soFF iytso hhite s\ bl.grn rvson so RvsoFF iyc sPAC 

E5IYC RVSON SP RVSOFF HHITE S\ D.BLUE SPyyt RVSON 
ST RVSOFF ?yQ <108> 

400 CHAR1,16,24,"IVVVVVCPIWK RVSON S+ll RVSOFF D 
.blue i yyyy j < 7 > 

4io CHARl,1,12,V*:CHARl,6,16,W$sCHARl,8,11,"CCD 
CQ CR2_ CF CL?t C HHITE ILC DOHN LEFT DOHN yLL DOHN LEF 
T DOHN?\-{QQHN_ LEFT DOHNI LC DOHN LEFT DOHN? L" <6B> 

420 CHARl ,3.22," { CYAN CL. CZ CS CJ CPI s OOOOQO" i CH 
AR1.0.24. "{ CYAN CA CE CC CL CZ_ CS CJ CPJiOOOOOO" <B4> 
430 CHARl ,1,18," { SPACE I " r PRINTTAB (1) " C YELLOH imSY. 

6 { DOHN LEFT4 I ’C RVSON !<{ SPACE RVSOFF?){DOHN LEFT4 

PDKE3836,J <176 > 

440 COLOR1 ,3,Qi CHARl .0.0, "VVVVVVC S PACE iyyy 11 <249> 

450 COLOR 1 ,3,2:CHARl,0,1," {SPACE?y{SPACE?y{SPACE 
yy{SPACE?y{SPACE?y u < i68> 

460 C0L0R1,3,4sCHARl.0.2." C SPACE iy{ SPACE iy{ SPACE 
iy {SPACE? VW" <219> 

470 CÜL0R1 .3.6s CHAR 1.0.3.» { SPACE ! V C SP4CO VW { SPA 
CE?y{SPACE2? " <224> 

480 COLOR1,14,0:CHARl,2,5,"VVCSB SPACE S41VCSB S 
pACE iy cspace 2yy** <17> 

490 CQLDR1,14,2:CHARl,2,6,"CSC SPACE?y{SPACE?yCS 
PACE iyC SPACE SC SPACE2 SO" <22> 

500 C0L0R1,14,3:CHARl,2,7,"^VCRKSflW CH RVSOFF SP 
ACE ypyQC SPACE y^C SPACE2 y'' n < 1B6> 

510 C0L0R1.14.4sCHARl.2.8."CSC SPACE ! VC SPACE !PCS - 
PACE IQC SPACE SC SPACE2 SC <137> 

520 CGLOR1,14,6sCHARl,2,9,"VVJ CSPACE?y{SPACE?yCS 
PACE? I CSD SPACE? I{SD!" <226> 

530 GETXSsIFX»=" C SPACE ! "THEN55Q <47> 

540 G0T0530 <106 > 

550 IFPU>HCTHENHC=PU <156> 

560 CHARl,9,24,"C CYAN? "s PRINTUSING;HC;s P 
U=0 <157> 

570 CHARl.2.18." C SPACE4 DOHN LEFT4 SPACE4 DOHN L 
EFT4 SPACE4 ! " <99> 
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Programme 


500 REST0RE590sFORD*1T071READN:SOUND1,N,6:SOUND2 
,N,6:NEXTD <167> 

590 DATA929,917,929,BB1,911,929,953 <5B> 

600 F0RI=1T0500:NEXTI <202> 

610 IFPEEK <190)»2THEN630 <57> 

620 GOT0640 <191> 

630 CHAR1,31,8,C*iCHARl,20,22,C«sGOT02290 <119> 

640 IFPEEK <190)»12THEN660 <169> 

650 GDTD670 <230> 

660 CHAR1,20,0,ATiCHARl,25,22,A4SG0T02290 <72> 

670 IFPEEK <B+A)<>32THEN730 <04> 

600 IFB=3462ANDA< 2THENA*—39•0 <101> 

690 IFB=3302ORB«3939THENA=4O < 141> 

700 IFB=3176THEN2260 <232> 

710 VOL0:POKEB,32sB=B+AiPOKEB+S,113iP0KEB t 12 <10> 

720 GDTD610 <26> 

730 B-INT(B)IIFB=3462THENA=-39.1 <1G6> 

740 IFPEEK (B+A)>2ANDPEEK<B+A)<7THEN1390 <30> 

750 IFPEEKCB+A)>OANDPEEK CB+A)<3THEN1450 <147> 

760 IFPEEKCB+A)=93THEN14B0 <12> 

770 IFPEEK CB+A)=92THEN1590 <40> 

780 IFPEEK CB+A)-94THEN1780 <02> 

790 IFPEEK CB+A)=219THENPGKEB,32s GOTO1070 <52> 

000 IFPEEKCB+A)-11THEN1960 <254> 

BIO IFPEEK CB+A)=i010RPEEK(B+A)=103THENA=11G0TD67 
O <61> 

020 IFPEEK CB+A)=1040RPEEK CB+A)=102THENA=-1:G0T06 
70 <65> 

030 IFPEEK CB+40)»1040RPEEK CB+40)=102THENA=-1*GOT 
0710 <12> 

040 IFPEEKCB+40)»1010RPEEKCB+40)=103THENA=liGOTO 
710 <202> 

050 lfB=3170THENA=40:G0T0670 <0> 

060 IFPEEKCB+A)>04ANDPEEKCB+A)<91THENPU=PU+(100* 

J1)SG0T0970 <40> 

B70 IFPEEKCB+A)>71ANDPEEK(B+A)<77THEN1210 <246> 

BBO IFB=3496THEN1290 <2O0> 

090 IFPEEK CB+40) =32THENA=40:J30T0710 <210> 

900 IFA=40THENA=—1s G0T0670 <I0> 

910 IFA=-1THENA=1sG0T0670 <105> 

920 IFA=1THENA=39iGOT0670 <220> 

930 IFA=39THENA=41:G0T0670 <42> 

940 IFA=41THENA=40sG0T0670 <6> 

950 IFG=3THENA=40sG=0: G0T0670 <94> 

960 A=40sG0T0670 <254> 

970 IFPEEK(B+A)=S5THEN1030 <112> 

900 IFPEEK(B+A)=B6THEN1120 <131> 

990 IFPEEK(B+A)=87THEN1030 <152> 

1000 IFPEEK(B+A)=0BTHEN1130 <1B5> 

1010 IFPEEKCB+A)=90THEN1130 <124> 

1020 IFPEEK(B+A)=B9THEN1200 <1B6> 

1030 U—INT CRND CI)*3)+1 <250> 

1040 IFU=1THENX=1090s Z=5:GGT01070 <230> 

1050 IFU=2THENX=1100s Z=7:GOTO1070 <201> 

1060 IFU=3THENX=1110s Z=7 <B> 

1070 E=Z+100sRESTOREX:FÜRI=lTOZaREADAsIFPEEKCB+A 
)=32THENP0KEB,32s B=B+As POKEB+S,113 <46> 

1000 POKEB,12:E=E—100:SOUND1,E,2:S0UND2,E,2:NEXT 
Is GQTÜ2020 <7> 

1090 DATA-40,—39,—30,42,41 <93> 

1100 DATA-40,-39,-30,1,1,42,41 <129> 

1110 DATA-40,-39,-39,-30,1,1,42,41,41 <27> 

1120 Z=7:X=l100sG0T01070 <66> 

1130 U=INT CRND CI)*3)+1 <94> 

1140 IFU=1THENX—1170s Z=5:GDT01070 <71> 

1150 IFU=2THENX=1180*Z=7sGQT01070 <125> 

1160 IFU=3THENX=1190s Z=9 s GOTO1070 <179 > 

1170 DATA-40,-41,-42,38,39 <2> 

11B0 DATA-40,-41,-42,-1,-l,30,39 <230> 

1190 DATA-40,-41,-41,-42,-1,-1,30,39,39 <171> 

1200 Z=7:X=1100sG0T01070 <210> 

1210 IFPEEK(B+A)=72THENF0RI=BT01STEP—1sVGLI:SOUN 
Dl,B00+I,3:NEXTIsA=liG0T01240 <56> 

1 220 IFPEEK < B+A)=73THEN1290 <108 > 

1230 IFPEEK CB+A)=76THENV0L8lSOUND1,300,5sGDT0132 
O <197> 

1240 U=INT(RND(l)+7)+l:F0RI=lT0UsIFPEEK(B+A)=32T 
HENPOKEB,32 s B=B+1s PDKEB+S,113s POKEB,12 < 77 > 

1250 NEXTI <250> 

f260 REGTORE1200s FÜR1 = 1T03s READA9IFPEEK(B+A)=32T 
HENPOKEB,32 s B=B+As POKEB+S,113s POKEB,12 < 241> 

1270 NEXTIs PU=PU+200+J1sG0T02020 <51> 

1200 DATA42,41,40 <220> 

1290 Jl=ls Jl=Jl + lsC0L0Rl.JlsCHARl.l.lB. ,, < SP4CC> " 

I PRINTTAB C1) "MX&C DOHN LEFT4) ' < RVSON> C {. SPACE RVS 
0FF7} iDOHN_ 4££T4>*+,-" <1B4> 


1300 J=J+1s POKE3B36,J s VOLB s REST0RE590sFOR1*1T07 s 
READNiS0UND1,N,6iS0UND2,N,6iNEXTI <94> 

1310 A=40:GOT0610 <46> 

1320 POKEB+40,77:FORI=lT030Os NEXTIsP0KEB+40,76i0 
0UND1,100,5s Xl=OsAa-40 <173> 

1330 Xl=Xl+lsPOKEB,32aB=B+AiPOKEB+S,113iPOKEB,12 
11FA=—39THEN1360 <220> 

1340 IFX1 «2THENA—39 < 134 > 

1350 GOTO1330 <139> 

1360 U=INT(RNDC1)*14)+1:F0RIY=1T0UbP 0KEB,32:B=B+ 
lsPOKEB+S,113sPOKEB,12S0O5UB225O <0> 

1370 NEXTIY <126> 

1300 P0KEB,32sB=B+41iPOKEB+S,113iPOKEB,12*A=40sP 
U=PU+5000#J1s G0T02020 <50> 

1390 CHAR1.29.2. "CREDICÜ WOHN LEFT2 1 EF»sFORI«BTQ 
1STEP-2* VOLIs SOUND1,170,3iNEXTI <61> 

1400 FORI=1TO2OiNEXTIiFORI=BTO1STEP-2iV0LIiS 0UND 
1,1,3iNEXTI <17> 

1410 CHAR1 .29.2. 11 I P.PZC/O CDC POWW LEFT2} EF' , sA*A*< 

-1>iPU=PU+3000+JltCHAR1,9,22," ICYßNy "iPRINTUSING 

PU <10O> 

1420 IFPEEK CB+A)*32THEN710 <60> 

1430 T1«INT CRND C1) +2) +11 IFTl*lTHENA“liG0T0670 <79> 

1440 A*-ls G0T0670 <73> 

1450 PU=PU+250*J1s A=40sVOLGs FORI=1000T07OOSTEP-2 
5sS0UND1,1,11NEXTiIFPEEK CB+A)~32THEN2020 <241> 

1460 GOTO1430 <252> 

1470 IFB-31B5THEN1500 <19l> 

1480 IFB*3733THENR1**1570: SU=21 s GOTO1520 <B5> 

1490 IFB=3746THENR1■1500sSU=34sGOTO1520 <219> 

1500 VOLBsSOUNDl,810,5iS0UNDl,695,5iPU=PU+2500*J 
1:POKEB,32s B=B+lsPOKEB+S,113:POKEB,12 <126> 

1510 CHAR 1.34.2.» I FLASHOH RED S~ FLAgHOFF > ,, iB=B+ 

1:POKEB+S,113:POKEB,12s A=40iGOT02020 <40> 

1520 VOLBs SOUND1,B10,5iS0UNDl,695,5sPU=PU+2500+J 
1s POKEB,32s B=B+40sPOKEB+S,113 <240> 

1530 POKEB,12sG0SUB2100 <204> 

1540 CHAR1.SU.17 ."I FLASNON RED FLASMOFFJ "»B=B 

+40:POKEB+S,113:POKEB,12sG0SUB2100sREST0RER1 <226> 

1550 FORN=1T03s READA:POKEB,321B=B+A <94> 

1560 POKEB+S,113sPOKEB,12:G0SUB2100sNEXTN:G0T020 
20 <154> 

1570 DATA40,40,41 <4> 

1580 DATA40,39,39 <127> 

1590 IFB=3170THENC1=900:A=40s C2=-100 s GOTO1630 <226> 

1600 IFB=3570THENC1=300s A=-40 s C2=100 s GOTO1630 <123 > 

1610 IFB=3347THENC1=B00s A=40s C2=-100s GOTO1700 <210> 

1620 IFB=3547THENC1=500s A=-40:C2=100 s GOTO1700 <133> 

1630 VOLBs F0RI=1T05 <70> 

1640 C1=C1+C2sSOUND1,C1,3sS0UND2,Cl,3 <226> 

1650 POKEB,32 s B=B+As POKEB+S,113s POKEB,12s FORN=1T 
020SNEXTN <202> 

1660 POKEB+S,67 s POKEB,92 K B=B+A:POKEB+S,81s POKEB, 

12 <137> 

1670 PU=PU+1000+J1s CHAR1,9,22,”t CV4N >"s PRINTUSIN 
G'^BBttttflPU <1> 

16B0 NEXTI <170> 

1690 G0TO61O <232> 

1700 VOLBsFOR1=1T02 <121> 

1710 C1=C1+C2:SOUND1,C1,3:S0UND2,C1,3 <40> 

1720 POKEB,32:B=B+As POKEB+S,113:POKEB,12:FORN=1T 
020:NEXTN <16> 

1730 POKEB+S,67 s POKEB,92:B=B+A:POKEB+S,113s POKEB 
,12 <79> 

1740 POKEB,32:B=B+As POKEB+S,113s POKEB,12 <123> 

1750 PU=PU+1000*J1SCHAR1,9,22," C CYAN y "sPRINTUSIN 
G M 4HM)tttt# M ;PU <01 > 

1760 NEXTI <250> 

1770 G0T0610 <56> 

17B0 IFB=3731THEN1800 <248> 

1790 IFB=374BTHEN1090 <156> 

1800 POKEB,32 s B=B+40 s POKEB+S,113s POKEB,12s G0qUB2 
100 s POKEB+S,119s POKEB,94s B=B+40 <253> 

1810 POKEB+S,113iP0KEB,12sG0SUB2100sP0KEB,32 <161> 

1020 B=B+40:POKEB+S,113:POKEB,12s G0SUB2100 s POKEB 
,32s B=B+40 <62> 

1030 POKEB+S,113s POKEB,12s G05UB2100 s POKEB,32 <101> 

1840 B=B+41s POKEB+S,113s POKEB,12s G0SUB2100s POKEB 

+S,119:P0KEB,105 <115> 

1850 B=B+41:POKEB+S,113sPOKEB,12sG0SUB2100IPOKEB 

+S,119sPOKEB,105 <125> 

1060 B=B+41s POKEB+S,113:POKEB,12s G0SUB2100:POKEB 

+S,119:POKEB,105 <135> 

1870 VOLG:SOUND1,500,25sSOUND1,400,25sS0UND1,200 

,30 <219> 

1000 L=L—1s G0SUB2040:PÖKELI,32sG0T02110 <213> 
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_Programme 

1890 POKEB,32 sB=B+40s PÜKEB+5,113s POKEB,12s GDSUB2 
100sPOKEB+S,119sPOKEB,94sB=B+40 
1900 POKEB+S,113sPOKEB,12s60SUB2100sPOKEB,32 
1910 B*B+40s PDKEB+S,113:POKEB,12s G0SUB2100 s POKEB 
*32 

1920 B=B+39sPOKEB+S,113:POKEB,12:G0SUB2100IPOKEB 
+B,119sPOKEB,105 

1930 B=B+39sP0KEB+S, 113sPOKEB, 12:G0SUB2100:POKEB 
+5,119:POKEB,105s B=B+39 

1940 POKEB+S,113s POKEB,12s G0SUB2100s POKEB+S,119s 
POKEB,105 
1950 GOT01G70 

1960 VOLBs RESTORE1990sFOR1*1T071READE1,E2 s SOUND1 
,E1,E2sG0SUB2010:NEXTI 

1970 POKEB,32s N=0s FORUE—1T0200:NEXTUEs FORI*lT08t 
N=N+100sPU=PU+1250+J1s S0UND1,N,5 
1980 CHAR1 ,9,22, n CCV^N> <l sPRINTUSING ,, ##tt#tt#";PUs6 
OSUB2010sNEXTI 

1990 DATAB10,12,739,6,739,6,770,12,739,12,798,12 
,810,12 

2000 B=3174sG0T0610 
2010 FORTA=lT010sNEXTTAsRETURN 
2020 CHAR1 ,9,22,”CCV4W>"sPRINTUSING"####rt# n jPU 
2030 G0T0610 

2040 IFL=4THENLI*3047sRETURN 
2050 IFL*3THENLI*3767iRETURN 
2060 IFL=2THENLI*3607sRETURN 
2070 IFL*1THENL1=3607*RETURN 
2080 IFL=0THENP0KE3527,32s GOT02090 
2090 CHAR1.23«12, n t PÜRPLE y ■<CQ CH CP SPACE CS>/< 

CP CJ> ,, tl_=5rB=3174s A=40i J=177sJl=lIGOT0130 
2100 F0RI=lT030sNEXTIsRETURN 
2110 A=40sB=3174sJl=lsJ=177 

2120 CHAR1,2,1B,”CSP4C£1 ÜOHH LEFT4 SPACE4 DOHM 
L EFT4 SPACE4J " 

2130 GETX»sIFX»= M C SPACE J **THENGOTD610 
2140 G0T02130 

2150 REST0RE2170 s FORRT=1T03:READA s POKEB,32:B=B+A 


Zauber Puzzle 


Nach dem Starten mit "RUN” 
darf die “RUN/STOP” Taste 
nicht mehr gedrückt werden, da 
sich das Programm sonst zerstört. 
Nach dem Titelbild und der Mu¬ 
sik dauert es ein wenig* bis die 
neun Karten und das Brett darge- 
Stellt werden. Aufgabe ist es die 
Karten so auf das Brett zu legen, 
daß der Farbkod, bei schwarz 
weiß Geräten die Buchstaben, 
übereinstimmen. 

Die Versuche und die benötigte 
Zeit werden angezeigt. Wer es 
nach einer Stunde noch nicht ge¬ 
schafft haben sollte* der kann 
nach der Abfrage "Karte” null 
eingeben. Dann werden die Kar¬ 
ten so auf das Brett gelegt, daß sie 
nur noch richtig gedreht werden 
müssen. 


10000 Teile waren wohl doch et¬ 
was viel, meine Herren! * 



<B7> 
<251 > 

<164> 

<23B> 

<105> 

<250> 

<4> 

<217> 

<36> 

< 102 > 

<105> 
<227> 
<181 > 
< 161 > 
<61 > 
<35> 
<54 > 
<72> 
<246> 
< 202 > 

<169> 

<65> 

<129> 

< 119> 
<214> 

< 160> 


s POKEB,12:G0SUB2100 <55> 

2160 NEXTRT:G0T0610 <74> 

2170 DATA-41,-l,40 <20> 

2180 RESTORE2200s FORRT =1T03 s READA:POKEB,32 1 B=B+A 
sPOKEB,12cG05UB2100 <60> 

2190 NEXTRTs G0T0610 <104> 

2200 DATA-39,1,40 <12B> 

2210 OP=INT <RND(1)*2)+1 <216> 

2220 IFOP=1THENA=13 (INT(10+RND(1)+1))s G0T0670 <79> 

2230 IFOP=2THENA=U3 <INT <10*RND <1)+1)):GOTO670 <202> 

2240 A=TY(INT(5*RND<l)+l))sG0T0670 <148> 

2250 RETURN <96> 

2260 GV=INT(RND(1)*2)+1 <14> 

2270 IFGV=2THENA=40s GDT0710 <235> 

2280 IFGV<2THENA=-lsG0T0710 <50> 

2290 IFPEEK <B+A>=970RPEEK(B+A>=04ORPEEK <B+A>*030 
RPEEK < B+A > = 100THEN2320 <11> 

2300 IFPEEK(B> *970RPEEK<B)=B40RPEEK <B)=B30RPEEKC 
B > *100THEN2320 < 43 > 

2310 CHAR1,2B,8,B$sCHARl,25,22,B$sCHARl,31,7,D$i 
CHAR1,28,21,D$ s G0T0670 <40> 

2320 IFPEEK(B+A)*B30RPEEK(B+A)*100THENCHAR1,31,7 
,D$iCHARl,2B,21,D*sGDT02210 <164> 

2330 IFPEEK(B+A)=B40RPEEK(B+A)»97THENCHAR1,2G,G, 
B*sCHARl,25,22,B*sG0T02210 <3> 

2340 IFPEEK<B)=830RPEEK(B)*100THENCHAR1,31,7,Dt: 

CHAR1,2B,21,D*:GOT02360 <199 > 

2350 IFPEEK(B)=B40RPEEK(B)=97THENCHAR1,28,9,B$sC 
HAR1,25,22,B^sG0T02360 <15B> 

2360 POKEB—1024,113sPOKEB,12*G0T02210 <153> 

ENDE DES LISTINBS 
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★ ★ ★ 


<14B> 

<104> 

<61> 

<251> 

<69> 

<58> 

<247> 

<237> 

<50> 

<42> 

<213> 

<231 > 

<175> 

<195> 


< 172> 


<19> 


<9B> 


<92> 


< 131> 


<1O0> 


<199> 


S*>” 

43 COLOR1,4,5:PRINT"<S* SPACE3 S* SPACE2 5* SPAC 
E3 S* SPACES SA SD SPACES SA SD SPACE2 S# SPACES 
J « 

45 COLOR1,4,4:PRINT"CS* SPACE3 S* SPACE2 S# SPAC 
E3 S* SPACE4 SA SD SPACES SA SD SPACE3 S* SPACES 
S*> " 

47 CGLOR1,4,3sPRINT"CS* SPACE3 S* SPACE2 S* SPAC 
E3 S*_ SPACE3 S*3 SPACE4 5*3 SPACE3 S*3 SPACE3 S* 


>'■ <132> 

*9 CDLDR1,4,2:PRINT"CS*4 SD SPACE2 S* SPACE3 S* 

SPACE3 SA SD SPACES SA SD SPACE4 S* SPACES S*>» <221 > 

51 COLOR1,4,1:PRINT"IS* SPACE6 S* SPACE3 S* SPAC 

E2 SA SD SPACES SA SD SPACES S* SPACES S*>“ <215> 

53 CQLOR1,4,0:PRINT"CS* SPACES SC S*3 S£ SPACE2 

S*5 SPACE2 S*S SPACE2 S*4 SPACE2 S*5J" <71> 

55 PRINT "ID0HN2 RIGHT6 UHITET <C)C SP4CO 19B6C SP4C 

E > III CHAEL C SP4CO HEI NE M <4> 


57 

59 

61 

63 

65 

67 

69 

71 

73 

75 

77 

79 

Bl 

95 

63 

65 

B7 


i <115> 

REM ** MUSIK ** <224> 

i <119> 

DIMN1X<66) ,N2X(66),D1X<66),D2X<66> <107> 

I=Os V0L8: REST0RE97 <26> 

READN1X<I) ,D1X<I) t IFN1X<I>C0THEN71 <255> 

1=1+1:GDTÜ67 <36> 

T1=I:1=0 <109> 

READN2X <I),D2X CI)sIFN2X(I)<0THEN77 <198> 

1=1 + 1s G0T073 <14> 

I1=—1:I2=—1 <165> 

IFD1>OTHENB5:ELSESOUND1,N1,0 <24> 

11=11+1 * IFI1<T1THEND1=D1X<I1> :N1=N1X<I1> sELSE 

< 106> 

IFN1>0THENS0UND1,N1,300 <243> 

IFD2>0THEN91:ELSESQUND2,N2,0 <35> 

12=12+1: D2=D2X (12) : N2=N27. < 12) <4B> 


<150> 

<69> 

<1B3> 


C-16 LISTINB + CHECKSUMMEN <OC VI-O) 

O REM 1 ’ I RETUR N CLEAR HHITE T (C) C SP4CE >19B6C SP4CE >M 
ICHAEL C SPACE7 HEINE 

I REM *# TITELBILD ** 

3 : 

5 TRAP429:SCNCLRiC0L0R4,2,1:CÖLORO,2,1:V=65260:P 
□KEO,O 

7 P0KEV+1B,PEEK(V+1B)AND251 
9 PÜKEV+19,PEEK < V+19)AND3QR48 

II F0RT=B32T0B49t READAs POKET,A:NEXT 

13 SY5B32:F0RT=12B00T012839:READA:POKET,A:NEXT 
15 DATA162,0,189,0,20B,157,0,48,169,0,209,157,0, 
49,202,20B,241,96 

17 DATA255,255,0,255,255,0,255,255 
19 DATA1,3,0,15,31,0,127,255 
21 DATA128,192,0,240,248,0,254,255 
23 DATA255,127,0,31,15,0,3,1 
25 DATA255,254,O,24B,240,0,192,128 
27 PRINT» C CLEAR 7 »:CUL0R1.4,0:PRINT" I D0HN3 S*5 SP 
ACE2 SA S*3 SB SPACE2 S* SPACE3 §* SPACE2 S*4 SB 
SPACE2 5*4 SPACE2 S*4 SB>" 

29 COLQR1 -4- 1:PRINT » I SPACE3 SA SD SPACE2 S* SPAC 
E3 S* SPACE2 S* SPACE3 S* SPACE2 S* SPACE3 S* SP 
ACE2 S* SPACES S* SP4CC3 S*>" 

31 C0L0R1,4,2sPRINT" CSPACE2 SA SD SPACE3 S* SPAC 
E3 S* SPACE2 S* SPACE3 S* SPACE2 S* SPACE3 SD SP 
ACE2 S* SPACES S* SPACE3 S*>" 

33 COLQR1,4,3:PRINT» I SPACE 5*3 SPACE3 S* SPACE3 
5* SPACE2 S* SPACE3 S* SPACE2 S*4 SPACE3 S*3 SPA 
CE3 S* SPACE2 SA SD LEFT y » 

35 COLOR1.4,4:PRINT» C SPACE SA SD SPACE4 S*5 SPAC 
E2 S* SPACE3 S* SPACE2 S* SPACE3 SB SPACE2 S* SP 
ACE5 S*3 SD SPACE 7" 

37 COLOR1,4,5:PRINT"CS4 SD SPACES S* SPACE3 S* S 
PACE2 S* SPACE3 S* SPACE2 S* SPACE3 S* SPACE2 S* 
SPACES 5* SP4CC SC SB SP4CE > » 

39 COLOR1,4,6:PRINT " CS*5 SPACE2 S* SP4CE3 S* SP4 
CC2 SC S*3 SD SPACE2 S*4 SP SP4CE2 S*4 SPACE2 S* 
SP4CE2 SC SB>" 

41 COLOR 1 ,4,6« PRINT» C D0HN3 SA S*3 SB SP>1CE2 S* S 
P4CEJ S* SP4CE2 S*5 SP4CE2 S*5 SP4CE2 S*4 SPACE2 


89 IFN2 >0THENS0UND2,N2,300 
91 D1=D1-1:D2=D2-1 

93 FORI=1T099:NEXTI«F=INT<RND(1)*16)+1:H=INT(RND 
<1)*7):COLORO,F,H:COLOR4,F,H*G0TQ79 
95 VOLO 

97 DATAO,1,605,1,770,1,810,1 
99 DATA798,1,685,1,798,1,834,1 
101 DATAB10,2,B54,2,755,2,B54,2 
103 DATA770,1,6B5,1,770,1,BIO,1 
105 DATA798,1,605,1,798,1,834,1 
107 DATAB10,2,770,2,000,4 
109 DATAO,1,854,1,BIO,1,854,1 
111 DATA770,1,810,1,685,1,739,1 
113 DATA704,2,770,2,834,2,B64,2 
115 DATAB64,1,834,1,798,1,834,1 
117 DATA739,1,798,1,643,1,704,1 
119 DATA685,2,739,2,810,2,254,2 
121 DATAB54,1,810,1,770,1,810,1 
123 DATA704,2,834,2,B34,1,798,1 
125 DATA739,1,798,1,665,2,810,2 
127 DATABIO,1,770,1,704,1,770,1 
129 DATA643,2,79B,2,B10,6 
131 DATA-1,-1 
133 DATA7,2,516,4,485,2 
135 DATA516,1,345,1,516,1,596,1 
137 DATA571,1,345,1,571,1,643,1 
139 DATA596,2,516,2,485,2,345,2 
141 DATA516,1,345,1,516,1,596,1 
143 DATA571,1,345,1,571,1,643,1 
145 DATA596,2,516,2,596,2,516,2 
147 DATA634,1,516,1,303,1,516,1 
149 DATA262,1,303,1,7,1,169,1 
151 DATA110,2,262,2,453,2,571,2 
153 DATA571,1,453,1,345,1,453,1 
155 DATA169,1,345,1,118,1,118,1 
157.DATA7,2,169,2,262,2,383,1 
159 DATA110,1,262,1,118,2,118,2 
161 DATA169,1,345,1,7,1,169,1 
163 DATA7,2,7,2 

165 DATA110,1,453,1,303,1,453,1 
167 DATA596,6 
169 DATA-1,-1 

171 SCNCLR:P0KE65299,20B:PDKE65298,196 
173 PRINTCHR*<14> 

175 GDT0437 
177 i 

179 REM ** PUZZEL ZAUBEREN *« 

1B1 i 

1B3 DIMP*<24) 

185 FORI=lT024:Z=INT(RND(1)*3)+l 

187 IFZ=1THENP*<I )="X RVSON B£D>RCfiKSOFF>" 

189 IFZ=2THENP»< I > = » C RVSON GREENy Gi RVSOFF y " 

191 IFZ=3THENP»< I) =»l RVSON BLUE 7Bl RVS0FF y » 

193 Z1 = INT<RND(1)*3)+1 
195 IFZ1=ZTHEN193 

197 IFZ1=1THENP* <I)=P» <I)+» t RVSON g£D>RCgKS0££>" 
199 IFZ1=2THENP»<I)=P4CI )+"C RVSON GREEH 7Gi RVS0FF 
>" 

201 IFZ1=3THENP»(I)=P»(I )+"I RVSON BLUE 7Bt RVS0FF y 


203 Z2=6-Z-Zl 

205 IFZ2=1THENP*(I)=P»(I) +”t RVSON BEP JR< BKSOFF ?» 
207 IFZ2=2THENP»<I)=P*<I)+» C RVSON GREEN7 GI RVS0FF 
>" 

209 1FZ2=3THENP» (I) -PS < I) +» t RVSON BLUE7 B <. RVS0FF 7 


211 NEXT 

212 s 

213 REM ** PUZZEL IN KARTEN ZERLEGEN ** 

215 : 

217 K*<1)=P*<4)+P*<1)+MID*<P*<5>,9,4)+MID*(P*(5> 
,5,4)+MID*<P*<5>,1,4) 

219 K*<1)=K*(1)+MID*<P*<8),9,4)+MID*(P*<0),5,4)+ 
MID*<P*(B),1,4) 

221 K*(2)=P4<5)+P«<2)+MID»(P4F(6) ,9,4)+MID*<P*<6> 
,5,4)+MID«(P»(6),1,4) 

223 K#<2)=K#<2)+MIDS<P*<9),9,4>+MID*<P*<9>,5,4)+ 
MID*(P«(9),1,4) 

225 K*<3)=P*<6)+P*<3)+MID*<P*<7),9,4)+MID#<P*<7) 
,5,4)+MID»(P*(7),1,4) 

227 K*<3)=K*<3)+MID*(P»<10),9,4>+MID*(P*<lp>,5,4 
)+MID4 <P4 <IO),1,4) 

229 K*<4)=P*<11)+P*<B)+MID4<P4<12),9,4)+MID*<P*C 
12),5,4)+MID»(P*(12),1,4) 

231 K«<4)=K*<4)+MID*(P4<15),9,4)+MID»<P*(15),5,4 
)+MID#(P4<15),1,4) 


<15> 

<54> 

<42> 

<154> 

<234> 

<73> 

<250> 

<7> 

<79> 

<240> 

<63> 

<219> 

<232> 

<27> 

< 120 > 

<03> 

< 196> 
<87> 
<223> 
<29> 
<2B> 

< 170> 
<61 > 

< 199> 
<58> 
<194> 
<205> 
<64> 
<244> 
<71> 
<98 > 
< 101 > 
<43> 
< 10 > 
<12B> 

< 17> 

< 120> 
<202> 
<B5> 
<55> 
<20B> 
<191> 
<10> 
<21 > 
<235> 
<44> 
<239> 
<5B> 

< 127> 
<62> 

< 187> 

< 132> 

< 199> 
<243> 
<2B> 

<91> 

<9> 

<32> 

<39> 

< 102 > 

<20> 
<85 > 
<14> 
<150> 

< 17> 

<241 > 
<16B> 

< 130> 
<23> 
<19> 
<11B> 
<19> 

< 119> 


24 
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233 K#(5)=P*<12>+P*<9>+MID*<P«<13) ,9,4)+MID*(P*< 
13> ,5,4>+MID*(P*<13) ,1,4) 

235 K$(S) =K4(5)+MID4(P4<16) ,9,4)+MID*(P*<16> ,5,4 
1+MID4(P4(16>,1,4) 

237 K*(6)=P*<13)+P«<10>+MID*(P*<14),9,4>+MID*(P* 
(14),5,4)+MID*<P*<14>,l f 4> 

239 K*<6)-K4(6)+MID*<P*<i7),9,4)+MID*<P*<17),5,4 
>+MID*(P*(17),1,4) 

241 K4 <7)=P4(18)+P4 <15)+MID4 <P4 <19),9,4)+MID*<P* 

(19) ,5,4>+MID*(P*<19),1,4) 

243 K*(7)=K*(7)+MID*<P*<22),9,4)+MID*(P*<22),5,4 
)+MID4(PO(22),1,4) 

245 K«<B)=P*(19>+P4<16>+MID#<P«<20) ,9,4)+MID*(P* 

(20) ,5,4r+MID*(P*<20>,1,4) 

247 K*(8>=K«<8)+MID*(P*<23> ,9,4)+MID*<P«(23) ,5,4 
)+MID*(P«<23),1,4) 

249 K*(9)*P*(20)+P*<17)+MID*<P*<21),9,4>+MID*(P* 

(21) ,5,4)+MID*(P*<21>,1,4) 

251 K*(9)=K*(9)+MID*<P*<24) ,9,4)+MID$(P*<24> ,5,4 
>+MID4(P4<24),1,4) 

253 l 

255 REM ** KARTEN MISCHEN ** 

257 a 

259 Z—INT(RND<1)*9)+1sIFZ3=9THEN269 
261 F0RI=1T09 

263 IFR <I)=0THENR(I)=ZsZ3=Z3+1s G0TÜ259 
265 IFR<I)<>ZTHENNEXTItELSEG0TÜ259 
267 a 

269 REM ** KARTEN DREHEN ** 

271 c 

273 F0RI = lT09aF0RY* s lT0INT <RND< 1) *4) 

275 D*=RIGHT*(K*(I>,36)+LEFT4<K*<I>,12) 

277 K4 <I)=D4aNEXTY:NEXTI 
279 a 

2B1 REM ## POSITIONEN FESTLEGEN ** 

203 s 

205 DIMS(19)c DIMZ(19) 

2B7 S(11)=1:Z(11)=2sS<12)—1:Z <12)=BsS(13)-laZ(13 
)=14aS(14)—laZ(14)=20sS(15 )—7 

2B9 Z(15)=2:S(16)*7:Z(16)=BaS(17)=7:Z(17)=14sS(l 
B)=7sZ(lB)=20sS(19)=13:Z(19)=20 

291 S(1)=23:Z(1)=3:S(2)=28:Z(2)=3sS(3)=33e Z(3)=3 
aS<4) =23s Z <4>=0s.S(5> =20 

293 Z(5)=B:S(6)=33sZ(6)=BsS <7)=23s Z(7)—13:S(B)=2 
8s Z<B) = 13s S(9)=33sZ(9)—13 
295 RETURN 
297 a 

299 REM ** KARTEN DARSTELLEN ** 

301 a 

303 F0RI=lT09:K(I)=10+IsNEXTsZ=9 
305 F0RI=1T09 

307 CHAR1 .S (K (I)) , Z (K (I) ) . " L RVSOH ORHG SPACE J "+M 
ID»(K»(R(I)).13,12)+ "L RVSOH ORHG SPACE J » 

309 CHAR1,S(K(I>),Z<K<I>)+l,MID*<K*<R<I)),9,4)+" 
L RVSOH ORHG SPACE3J "+MID4<K4(R(I)),25,4) 

311 CHAR1,S(K(I)),Z<K(I> >+2, MID4<K4<R<I >),5,4)+" 
I RVSOH ORHG SPACE3J "+MID4(K4(R<I)),29,4) 

313 CHAR1,S(K(I)>,Z(K(I))+3,MID4<K4(R(I)),1,4)+" 
C RVSOH ORHG SPACE3J "+MID4<K4 (R(I) ) .33.4) 

315 CHAR1,S(K<I) ),1 (K(I>)+4, "L RVSOH ORHG SPACE J " 
+MID4 <K4(R<I)),45,4)+MID4<K4<R<I)),41,4) 

317 CHAR1,S(K(I))+3,Z(K(I))+4, MID4<K4<R< I)),37,4 
>+"L RVSOH ORHG SPACE J " 

319 CHAR1,S(K(I))+l,Z(K(I))+2,STR4(I)+"tRKSOFFJ" 
321 IFZ=1THENRETURN 
323 NEXT 

325 F0RI s lT05aCHARl ,13,1+1, H LRVSOH, L.BLU SPACES 
RVSOFFJ " 

327 CHAR1,13,7+1, " L.BLU SPACES RVSOFF J 11 

329 NEXT 

331 CHAR1,13,3," LRVSOH, L.BLU SVJ ERSUCHE LRVSQFFJ " 
333 CHAR1.13,9. H L RVSOH L.BLU SPACE2 SZJE1TL SPACE 
2 RVSOFF J" 

335 RETURN 
337 a 

339 REM ** BRETT DARSTELLEN ** 

341 s 

343 PRINTCHR4(146)aF0RI=lT015 

345 CHAR1 , 22+1,2," <CG> " s CHAR 1,22,2+1," LCMJ " s CHAR 
1 ,38,2+1, " LCGJ " sCHAR 1,22+1,1B, " tC7> "s NEXT 
347 CHAR1,23,1,"tSP>0SITIONEN { SPACEJ 1-9" 

349 RETURN 
351 : 

353 REM ** KARTEN LOESCHEN ** 

355 a 


< 175> 
<236> 
<75> 
<97> 
<75> 
<22B> 

< 149> 
<B9> 
<209> 


<206> 

<55> 

<24B> 

<60> 

<49> 

<125> 

<223> 

<159> 

<70> 

< 210 > 

<74> 

<49> 

<90> 

<123> 

<B2> 

<195> 

< 86 > 

<245> 

<B5> 

<26> 

< 175> 

< 212 > 

< 102 > 

< 100 > 

< 107> 

< 104> 
<105> 

< 169> 

<39 > 

<136> 

< 2 > 

< 113> 

<B0> 

< 101 > 

<253> 

<242> 

<19B> 

<59> 

<32> 

<204> 

<33> 

<B4> 

< 222 > 

< 140> 
<23B> 

< 144> 

< 100 > 

< 102 > 
<75> 
<236> 
< 154> 
<14B> 
<15B> 


359 CHAR1,S<K <I)),Z <K(I))," L SPACE5 J " 

361 CHARO,S <K(I)),Z(K <I>)+1," L SPACE5 J " 

363 CHARO,S(K<I)).Z <K <I))+2.» L SPACE5 J ” 

365 CHARO,S(K(I)).Z(K<I))+3.” L SPACE5 J » 

367 CHARO,S <K<I)),Z <K <I))+4," L SPACE5 J» 

369 IFK(I)>9THEN373 

371 CHAR1,S(K(I))+1.Z(K(I))+2, *’"+STR»(K < I 
)) 

373 I FZ— 1THENRETURN 
375 NEXTIaRETURN 
377 a “ 

379 REN ** KARTE ZURUECK NEUE KARTE HIN 
3B1 s 

3B3 60SUB359s K <I)=I +10:G0SUB307a RETURN 
3B5 a 

3B7 REM ** KARTE DREHEN ** 

3B9 s 

391 I=K:G0SUB359sD4=RIGHT*(K*(R(K)),12)+LEFT4<K4 
(R(K)),36)sK4(R(K>)=D4 
393 G0SUB307:G0T0477 
395 s 

397 REM ** KARTEN RICHTIG HINLEGEN ** 

399 s 

401 FORI—1T09 a G0SUB359:NE X T 

403 F0RI=lT09aK(I)=R(I)sG0SUB307sNEXT:RETURN 
407 s 

409 REM ** KARTEN AUSWERTUNG ** 

411 a 

413 B=3375:K—O 

415 F0Rl=lT013aIFPEEK(B+I)=PEEK(B+I+40)THENK=K+1 
417 NEXTsIFK—13THENB=3575s G0T0415 
419 IFK=26THENB=3250sELSE:RETURN 

421 FORI—1T0520STEP40:IFPEEK(B+I>=PEEK(B+I+l>THE 
NK=K+1 

423 NEXTiIFK=39THENB=3263:G0T0421 
425 IFK052THENRETURN 

427 CHAR1.8.0 ."L FLASHOH RVSOH &PACE SHJEUESL SPAC 
E SPJQZZELL SPACE J(LSJJ/LSHJ)L SPACE RVSOFF FLASHO 
FFJ "aGETKEYE4sIFE»="J"THENRUN63 
429 F0RI=lT09000OsP0KE4095+I,00sNEXT 
431 a 

433 REM ** HAUPTPROGRAMM ** 

435 s 

437 SCNCLRs COLORO,2,1a C0L0R4,2,1s GOSUB1B3:FOR1 = 1 

T09:K < I> = 1s NEXTs Z=9:G0SUB357 

439 G05UB303:G0SUB343:Z=1s V=-ls TI*="000000" 

441 : 

443 REM ** SPIEL ABFRAGE ** 

445 a 

447 K=0:K$="1234567890"sF0RI=lT09iIFK(I)<10THENK 
=K+1 

449 NEXTsIFK=9THENG0SUB409 

451 Z4=TI4: CHAR1,13,11," LRVSOH, L.BLU J "+LEFT4 <Z». 
2) +"s "+MID4<Z4,3,2)+": "+MID*<Z*,5,2> 

453 V=V+1sCHARl,14,5,STR4(V) 

455 CHAR1 .25.20. " L L.BLU RVSOH FLASHON SPACE SfCJA 
STEL SPACE FLASHOFF RVSOFF SPACE5J " 

457 GETKEYEOaK=INSTR(K*,E4)sIFK=0THEN455 

459 IFK=10THENK=0s G0SUB401:G0T0457 

461 CHAR1.25.20 ."I L.BLU RVSOH FLASHOH SPACE SPJO 

SIT10N L SPACE FLASHOFF RVSOFF SPACE2 J » 

463 GETKEYE4sP=INSTR(K*,E4)aIFP=0THEN463sELSEsFO 
RI=lT09 

465 IFK(I)=PANDK<>ITHENG0SUB3B3 
467 NEXT 

469 IFP=10THENP=0aI=K:G0SUB359aK(K)=K+10sG0SUB30 

7sG0T0447 

471 I=Kc G0SUB359 

473 K(K)=PsG05UB307 

475 CHAR1,25,20, u LL^BLJi RVSOH FLASHOH SPACE SDJ R 
EHEN L SPACE SJJ/LSH SPACE FLASHOFF RVSOFF J » 

477 GETKEYE*s IFE»="J ,, THENV=V+lsG0T0391sELSEs IFE4 
< >"N"THEN477 

479 G0T0447 * 


* COPYRIGHT BY # 

« MICHAEL HEINE * 

* SCHWERINERSTR.21A * 

* 3100 CELLE * 

* TELa05141/47513 * 

* <C) 19B6 * 


/ ENDE DES LISTINGS 


<240> 

< 130> 
<152> 

< 174> 

< 196> 
< 11 > 

< 120 > 
<3B> 

< 114> 

< 1B0> 
< 110 > 
<1B4> 
<19> 

< 1BB> 

< 120 > 
<192> 

<51 > 
<B4> 

< 19B> 
<56> 
< 202 > 

< 169> 
<79> 
< 210 > 
<254> 
<214> 
< 10 > 
<225> 

< 17> 

< 125> 

< 121 > 
< 19B> 
< 222 > 


<31 > 

< 12 > 

<234> 

<204> 

<23B> 

< 11B> 

< 144> 

<244> 

<77> 

<24B> 

< 120 > 

< 117> 

<41 > 
<146> 

< 144> 
<237> 
<B> 

< 174> 

< 193> 
<233> 
<06> 

<231 > 

< 124> 
<90> 

< 161 > 

< 177> 

<73> 

<232> 

<234> 

<240> 

<153> 

<229> 

< 1 > 

<5B> 

<240>' 


357 F0RI=1T0Z 


<163> 
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Werkstatt 


Speichersplit 


Es klinge wie ein Scherz, wenn je¬ 
mand sagt, er habe ein Programm 
geschrieben, das den ohnehin 
schon knappen Basic-Speicher des 
016 in zwei gleichgroße Bereiche 
aufteilt. In jedem kann ein Pro¬ 
gramm geladen, und beide unab¬ 
hängig von einander gestartet 
bzw. bearbeitet werden. * 

So entstand dieses Programm 
auch eher aus sportlichem Ehr¬ 
geiz, als im Hinblick auf eine be¬ 
stimmte Anwendungen. 

Dennach erweist sich die Speiche¬ 
raufteilung als nützliches Hilfs¬ 
mittel. So kann man bei der Pro¬ 
grammentwicklung beispielswei¬ 


se, ein anderes Programm im 
zweiten Speicherbereich bereit 
halten und Teile daraus mittels 
Biktschirmcdhor übernehmen. 
Das spart Arbeit und Zeit. Oder 
man hält, während man im ersten 
Bereich Vokabeln paukt, im 
zweiten Bereich ein kleines Spiel¬ 
chen parat, um zur Entspannung 
hin und wieder mal umzu¬ 
schalten. 

Seine volle Stärke erweist der 

Speichersplit denjenigen, die Ih¬ 
ren 016 auf volle 64 K ausgebaut 
haben. Sie müssen allerdings die 
Bereichsgrenzen abandern, was 
aber aufgrund des ausreichend do¬ 


kumentierten Listings nicht 
schwierig ist. 

Nach dem Eimippen des Basic- 
Ladeprogrammes ist es ganz 
wichtig, dieses zuerst abzuspei¬ 
chern, denn es löscht sich selbst, 
nachdem das Maschinenpro¬ 
gramm generiert wurde. 

Wer da meint, das sei doch halb 
so wild, wenn er es mit Taste Fl 
(Old) wieder Herstellen kann, hat 
recht - allerdings nur sofern er 
sich keinen Tippfehler erlaubt 
hat» 

Das Maschinenprogramm belegt 
keinen Basic-Spelcher, so daß mit¬ 
tels F8 (HELP) zwischen zwei je 


6K großen Speicherblöcken hin 
und her geschaltet werden kann. 
Nach jenem HELP-Tastendruck 
meldet der Computer in welchem 
Bereich man sich nun befindet 
und wieviele Bytes hier noch frei 
sind. Alle Bsic-Kora m an dos 
(RUN, LIST, LOAD, RENUM- 
BER, NEW usw.) beziehen sich 
von nun an ausschließlich auf den 
Speicherbereich in dem man sich 
gerade befindet. 

In den ursprünglichen Zustand 
zurückschalten kann man mittels 
Taste F6 (nur von Bereich 1 aus). 
Dabei gehe das im Bereich 2 ste¬ 
hende Programm verloren. 


C-16 LISTINB + CHECKSUMHEN (OC VI.O) 


10 REM SPEICHERSPLIT <207> 

20 REM (C) B-LAUER, NUERZBURG <131> 

30 s <BB> 

40 e <90> 

50 Al=16aREM ANFANG 1=256*16+1 =4097 <112> 

60 El=39:REM ENDE 1=256*40-1 =10239 <11> 

70 A2=40:REM ANFANG 2=256*40+1 =10241 <113> 

80 E2=63a REM ENDE 2=256*64-1 =16303 <20> 

90 a <14B> 

100 a <158> 

110 READ AaP0KE216,A <196> 

120 FORI=OT027sREADAaP0KE1015+I,AsNEKT <235> 

130 : <1B8> 

140 s <19B> 

150 REM DATAS ENTHALTEN Al UND El <73> 

160 a <21B> 

170 DATA1,1,16,3,16,3,16,3,16,246,39,244,39,246, 

39 ' <B4> 

180 s< <230> 

190 s <24B> 

200 REM DATAS ENTHALTEN A2 UND E2 <162> 

210 : < 12 > 

220 DATA 1,40,3,40,3,40,3,40,246,63,244,63,246,6 
3 <03> 

230 : <32> 

240 s <42> 

250 REM MASCHINENPROGRAMM <171> 

260 : <63> 

270 FOR1 = 1TQB5s READA*a A=DEC< A*)aPOKE1629+1,A:NE X 
T <230> 

280 DATA 78,A5,DB,C9,01,F0,03,4C <230> 

290 DATA B6,06,A9,02,B5,DB,A2,00 <158> 

300 DATA B5,2B,9D,F7,03,ES,E0,OE <253> 

310 DATA 00,F6,A2,00,BD,05,04,95 <207> 

320 DATA 2B,EB,EO,0E,DO,F6,5B,6O <111> 


330 DATA A9,01,B5,DB,A2,00,B5,2B <25> 

340 DATA 90,05*04,ES,EO,OE,DO,F6 <13> 

350 DATA A2,00,BD,F7,03,95,2B,E8 <157> 

360 DATA EO,OE,DO,F6,58,60,AS,DB <127> 

370 DATA C9,O1,DO,O0,A9,3F,B5,34 <195> 

375 DATA B5,36,85,38,60 <07> 

380 s <183> 

390 s <193> 

400 REM FUNKIONSTASTENBELEGUNG <237> 

410 I <213> 

420 t <223> 

422 s <225> 

425 REM PLATZ SCHAFFEN <255> 

427 KEV3, '*" aKEY 4 # ,,,, sKEY 5, ,,,, <27> 

430 REM OLD FUER SPEICHERBER.1 = Fl <15B> 

440 KEY1,"PCS0I409B,laSYS34B40aSYS34892"+CHR$(13 
) <13> 

450 s <253> 

460 REM OLD FUER SPEICHERBER.2 = F2 <233> 

470 KEY2, "P<S0> 10242, la SYS34B40aSYS34B92 ia +CHR* (1 
3) <251> 

4B0 a <27> 

4B2 s <29> 

4S5 REM WIEDER NORMAL (NUR AUS BEREICH 1 

= F6 <125> 

4B7 KEY6, ,, SYS1700aP€S01194, 1-sKEYB, M +CHR^<34) +CHR 
♦ (34)+"r ?FRE(X) H +CHR*(13> <7B> 

490 REM UMSCHALTEN ZWISCHEN DEN SPEICHER BERE 
ICHEN = FB (HELP) <54> 

500 KEY G,"SYS1630aPCS0J194,1s7PCSEI(216),FRE(X) 

“+CHR$(13) <9B> 

510 s <57> 

520 s <6B> 

530 REM POKEWERTE = El <4B> 

54O P0KE52,39:P0KE54,39sP0KE56,39s NEW <B> 

ENDE DES LISTINGS 


Schieberoutine 

Diese kurze Routine verschiebt auf komfortable Weise defi¬ 
nierte Speicherbereiche in jeden gewünschten Adressraum. 
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Programme 


Listing 

Schieberoutine 


C—16 LISTING + CHECKSUMMEN <0C VI.O) 


IO REM SCHIEBE-ROUTINE GENERIEREN V.10 <9> 

20 REM R.-E. MUELLER <196> 

30 REM 24.B.B6 <201> 

40 5CNCLRsPRINTTftB<6> " C P 0HN2 RVSONy SCHIEBE-ROUTI 
NEt SPACE! GENERIERENPPM>" <55> 

50 INPUT"ADRESSEC S PACE ! SCHIEBE-ROUT.(HEX):";A* <111> 

60 INPUT M ANFANGS-ADR. DES< SPACE 3 PRGR, (HEX) : B* <33> 
70 INPUT"END-ADR. C SP4CC >DESC S/MCE >PRGR. i SPACE ! (H 
EX+1):"$ C* <250> 

80 E=DEC(C*):F=DEC(B*):G=E-F:G*=HEX*(G)sPRINTsPR 
INTTAB <12)DEC (G*) n <SP^CE>BYTES" <71> 

90 INPUT" (MANFH D. ZIELSTANDORT (HEX) : Z* <13B> 
100 D1=DEC <Z*)sD2=DEC(G*>:D3=D1+D2zD*=HEX*(D3) <B9> 

HO INPUT" T PPWO MIT C SP4CO AUTO-START {. SPACE - } (J/N) 

«";F* <83> 

120 IF F*<>"N" AND F*<>"J"THEN PRINT"<ÜP3>":GOTO 


110 

130 IF F*="N" THEN F1=0 

140 IF F*="J" THEN Fl=l 

150 DATA A9,FF,05,5F,A9,FF,B5,6Ö,A9,FF 

160 DATA B5,5A,A9,FF,05,5B,A9,FF,B5,50 

170 DATA A9,FF,05,59,20,C7,00,60,FF,FF 

ISO DATA FF,FF • 

190 VE=DEC(AT):F0RI=0 TO 31:READ HE* 

200 POKE VE+I,DEC(HE*):NEXTI 

210 B2*=RIGHT*(B*,2):B1*=MID*(B*,1,2) 

220 C2*=RIGHT*(C*,2):C1*=MID*(C*,1,2) 

230 D2*=RIGHT*(D*,2):D1*=MID*<D*,1,2) 

240 POKE VE+1,DEC(B2*)sPOKE VE+5,DEC(B1*> 

250 POKE VE+ 9,DEC(C2*)sPOKE VE+13,DEC(C1*) 

260 POKE VE+17,DEC(D2*)iPOKE VE+21,DEC(D1«) 

270 X1=DEC(D*):X2=DEC(G*):X3=X1-X2:X4*=HEX*(X3) 
2B0 X5*=RIGHT* < X4*,2):X6*=MID*(X4*,1,2) 

290 IF Fl = l THEN POKE(VE+26)+1,76:P0KE<VE+26)+2, 
DEC(X5*):POKE <VE+26)+3,DEC <X6*) 

300 PRINT"FERTIG" 

310 PRINT"C DOHN ! AUFRUFC SPACE >DERC SPACE J SCHIEBERO 
UTINE: i SPACE ! SYS"s DEC(A») 

ENDE DES LISTINGS 

★ 


< 174> 

< 183> 
< 101 > 
<125> 
<155> 

< 123 > 
<71 > 
<150> 
<245> 

< 29 > 
<79> 

< 129> 
< 66 > 
<250> 
<123> 
< 200 > 

< 167 > 

< 120 > 

<235> 

<43> 



Die Wekraumüberwachungsbe- 
hörde hat den Anüug feindlicher 
Flugobjekte auf die Stadl Atlantis 
gemeldet. Ihnen alsCommandant 
der Verteidigungsbatcerie obliegt 
es nun, den Untergang der Metro¬ 
pole zu verhindern. Eine veran¬ 
twortungsvolle Aufgabe, die Ih¬ 
nen mit Sicherheit viel Schweiß 
und schlaflose Nächte bereiten 
wird. 


Die feindliche Attacke erfolgt auf 
mehreren Ebenen, erst in der letz¬ 
ten Ebene gerät Ihre Stadt wirk¬ 
lich in Gefahr vernichtet zu wer¬ 
den. Insgesamt besitzen Sie drei 
Städte, falls auch die letzte 
menschliche An Siedlung vernich¬ 
tet wurde, versuchen die Bewoh¬ 
ner aus Atlantis zu entfliehen. 
Verhindern Sie mit allen Mitteln, 
daß es soweit kommt. 


Zur Verteidigung von Atlantis 
stehen Ihnen zwei Kanonen, die 
diagonal und eine Kanone, die 
vertikal schießt zur Verfügung. 
Die Ufos kommen in verschiede¬ 
nen Wellen, die jeweils aus 60 Flu¬ 
gobjekten bestehen auf Ihre Ver¬ 
teidigungsstellungen zu. Jeder 
neue Angriff isL schwieriger zu 
meistern, da steh der Anteil der 
schnelleren Ufos ständig erhöht. 


Joysticksteuerung (Port 2): 

Feuer + rechts = rechte Kanone 
schießt / Feuer + links = linke 
Kanone schießt / Feuer = mittle¬ 
re Kanone schießt Punktwer¬ 
tung: langsames Ufo = 20 Punkte 
mittelschnelles Ufo = 50 Punkte 
schnelles Ufo = 100 Punkte Bei 
erfolgreicher Abwehr einer An¬ 
griffswelle erhalten. Sie 1000 
Punkte gutgeschrieben. 


ATLANTIS - 
Ein Actionspiel 
für Ihren 
Commodore 64 


C-64 

LIST1NB + CHECKSUMMEN <C VI.0) 


10 REM 


<153> 

11 

REM 

ATLANTIS 

<224> 

12 

REM 

---- 

<B6> 

13 

REM 


<156> 

14 

REM 

(C) 19B6 BY ZUHEIR URWANI 

<246> 

15 

REM 

THOMAS KEUCHEL 

<167> 

16 

REM 


< 159> 

17 

REM 

2B.7.06 - 3.8.86 

<12B> 

1B 

REM 


< 161 > 

19 

REM 

ZUR EINGABE! 

< 146> 

20 

REM 


<117> 

21 

REM 


<164> 

22 

REM 

1.) POKE 44,32:POKE 0192,O:NEW 

<237> 

23 

REM 

2.) DIESES PROGRAMM EINGEBEN 

<B9> 

24 

REM 

3.) ZUR SICHERHEIT ABSPEICHERN 

<30> 

25 

REM 

4.) RUN 

<24B> 

26 

REM 

5. ) ABSPEICHERN: 

<142> 

27 

REM 

- SAVE "ATLANTIS",B BZW. 

< 194> 

20 

REM 

- SAVE "ATLANTIB" BZW. 

<165> 

29 

REM 

- S "ATLANT19" (TURBO) 

<43> 

30 

REM 

6.) RUN 

<1> 

31 

REM 


<174> 

100 : 


<15B> 


110 PRINT »t CLEAR PPHH2 }ATLANTIS< SF»CC >!!!» <1B3> 

120 PRINT "< P0HM >BITTE< S/MCf >GEDULP< S/VICC >! t SPAC 
E! (ZU&TK)" <162> 

130 FÜR 1=2049 TD BlOB STEP 60 <46> 

135 S=0:F0R J=I TQ 1+59 <106> 
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Programme 


140 READ AsPOKE J,AsS=S+A 

150 NEKT JiREAD Vi IF VOS THEN 200 

160 PRINT 11 t HOHE J »i0100-1 t " O.EFT SPACE ! "sNEXT I 

170 POKE 45,20B:POKE 46,31«CLR 

100 POKE 44.01 PRINT»t CLOIftl OK-t POWO "cLIST 

200 PRINT "ECLEAR D0HH2 R1GHT2! >»I SP4CO DATAtSP4 

CE! ERROR CSPACE_! INt SPACE ! " » 

210 Z=PEEK(63)+256*PEEK(64) 

220 PRINTZ—4| M -”j ZsEND 
997 i 

990 REM-DATEN- 

999 l 

1000 DATA 000,037,000,194,007,150,032,050,040,05 
6,055,032 

1001 DATA 032,066,009,032,090,046,005*002,007,06 
5,070,073 

1002 DATA 032,030,032,004,046,075,069,005,067,07 
2,069,076 

1003 DATA 000,000,000,169,121,133,253,169,010,13 
3,254,169 

1004 DATA 000,133,251,169,192,133,252,160,000,17 
7,253,145,5531 

1005 DATA 251,230,253,200,002,230,254,230,251,20 
0,002,230 

1006 DATA 252,165,251,201,087,208,234,165,252,20 
1,205,200 

1007 DATA 220,169,134,133,253,169,008,133,254,16 
9 192 133 

1008 DATA 251,169,053,133,252,160,000,177,253,14 
5,251,230 

1009 DATA 253,208,002,230,254,230,251,208,002,23 
0,252,165,11112 

1010 DATA 251,201,179,208,234,165,252,201,063,20 
0,228,076 

1011 DATA 000,192,000,000,000,000,000,000,000,00 

0 , 000,000 

1012 DATA 020,000,000,105,000,001,165,064,134,14 
9 082 089 

1013 DATA 085,085,119,119,117,093,221,221,021,08 
5,084,001 

1014 DATA 085,064,000,105,000,000,000,000,000,00 
0,000,000,4772 

1015 DATA 000,000,000,000,000,000,000,000,000,00 

0 , 000,000 

1016 DATA 000,000,000,000,000,000,000,000,000,00 
0,060,000 

1017 DATA 000,052,000,000,118,000,000,118,000,00 
0,098,000 

1018 DATA 000,227,000,000,227,000,024,225,000,02 
5,193,128 

1019 DATA 013,207,240,007,252,216,003,128,204,00 
7,128,108,3008 

1020 DATA 007,000,096,015,000,048,014,000,048,03 
0,000,025 

1021 DATA 124,000,030,120,000,014,000,000,000,00 

0 , 000,000 

1022 DATA 000,000,000,000,000,056,000,006,056,00 
0,006,056 

1023 DATA 000,003,056,000,001,255,192,000,056,09 
6,000,056 

1024 DATA 000,000,056,000,000,056,000,000,056,00 
0,000,056,1690 

1025 DATA 000,000,056,000,000,056,000,000,124,00 
0,000,252 

1026 DATA 000,003,206,000,031,135,128,126,001,24 

0 , 000,000 

1027 DATA 000,000,000,000,000,000,020,000,000,05 
4,000,000 

1028 DATA 099,000,000,099,000,000,195,000,000,19 

5 , 000,000 

1029 DATA 195,000,000,071,000,000,102,000,000,10 
2,000,000,2498 

1030 DATA 030,000,000,044,000,000,060,000,000,12 

6 , 000,000 

1031 DATA 230,000,001,199,000,003,131,192,015,00 
0,240,062 

1032 DATA 000,060,000,000,000,000,000,000,000,00 

0 , 000,000 

1033 DATA 000,000,000,000,000,000,000,000,000,00 

0 , 000,000 

1034 DATA 000,000,000,000,000,060,000,063,108,00 
0,113,224,1969 

1035 DATA 000,192,224,000,19^,096,001,128,096,00 
1,128,096 

1036 DATA 001,128,096,001,128,096,000,192,096,00 
0,224,220 


< 101 > 

<145> 

< 210 > 

<142> 

<35> 

<255> 

<136> 

<77> 

<34> 

< 176> 
<36> 

<236> 

<7B> 

<4> 

<140> 

<249> 

<25i> 

<166> 

<30> 

<26> 

< 200 > 

<B7> 

< 210 > 

<153> 

<195> 

<99> 

<129> 

<132> 

<155> 

<191> 

< 122 > 

<194> 

<99> 

<229> 

<113> 

<227> 

<173> 

< 121 > 

<7> 

<203> 

<186> 

<60> 

< 101 > 

<1B9> 

<148> 

<236> 

<227> 

<253> 


1037 DATA 001,179,184,015,030,024,000,000,000,00 

0 , 000,000 

1038 DATA 000,000,000,000,000,000,000,000,000,00 

0 , 000,000 

1039 DATA 000,000,000,000,000,000,000,000,000,00 
0,000,000,2777 

1040 DATA 000,000,000,000,001,225,240,003,187,05 
6,007,030 

1041 DATA 020,006,012,012,006,012,012,006,012,01 
2,006,012 

1042 DATA 012,006,012,012,014,012,012,028,030,00 
7,000,000 

1043 DATA 000,000,000,000,000,000,000,000,000,05 
6,000,006 

1044 DATA 056,000,006,056,000,003,056,000,001,25 
5,192,000,1717 

1045 DATA 056,096,000,056,000,000,056,000,000,05 

6 , 000,000 

1046 DATA 056,000,000,056,000,000,056,000,000,05 

6 , 000,000 

1047 DATA 124,000,000,252,000,003,206,000,031,13 
5,128,126 

104B DATA 001,240,000,000,000,000,000,000,000,00 

0 , 000,000 

1049 DATA 000,254,000,003,085,12B,000,254,000,00 
0,000,000,2514 

1050 DATA 000,000,000,000,000,000,000,000,000,00 
0,016,000 

1051 DATA 000,056,000,000,040,000,000,044,000,00 
0,068,000 

1052 DATA 000,068,000,000,198,000,000,198,000,00 
1,130,000 

1053 DATA 003,003,000,014,001,224,000,000,000,00 

0 , 000,000 

1054 DATA 000,000,000,000,000,000,016,000,000,04 
8 000 OOO 1128 

1055 DATA*224,OOO,007,192,000,062,000,000,112,00 
0,000,096 

1056 DATA 000,000,240,000,000,190,000,001,143,12 

8 , 001,000 

1057 DATA 192,003,000,096,003,000,048,006,064,04 
8,004,096 

1058 DATA 096,012,112,192,024,063,128,048,014,00 

0 , 000,000 

1059 DATA 000,000,224,248,252,254,254,255,255,25 
5,000,000,4642 

1060 DATA 000,128,128,192,224,248,000,000,000,00 
1,001,003 

1061 DATA 007,031,007,031,063,127,127,255,255,25 
5,000,000 

1062 DATA 000,128,192,224,112,056,028,008,028,00 
9,063,127 

1063 DATA 255,204,028,030,063,255,255,255,255,23 
1,056,016 

1064 DATA 056,144,252,254,255,051,000,000,000,00 
1,003,007,5984 

1065 DATA 014,028,056,120,252,255,255,255,255,23 
1,000,252 

1066 DATA 066,064,120,064,066,252,000,000,001,00 

1 , 001,001 

1067 DATA 225,065,000,000,128,128,12B,128,135,13 
0,000,007 

1068 DATA 031,048,112,102,198,199,255,255,000,02 
4,216,219 

1069 DATA 219,255,000,224,248,028,006,102,099,22 
7,001,014,6765 

1070 DATA 048,067,143,255,127,063,255,031,127,25 
5,255,255 

1071 DATA 255,255,128,240,252,254,255,255,254,25 
2,000,024 

1072 DATA 024,000,000,024,024,000,000,060,066,13 
0,130,130 

1073 DATA 132,120,000,024,04B,000,016,016,020,05 
6,000,124 

1074 DATA 130,002,060,064,130,252,000,120,132,00 
2,02B,002,6451 

1075 DATA 130,124,000,030,040,072,136,252,008,02 
B,OOO,254 

1076 DATA 130,120,124,002,130,124,000,060,066,12 
B,108,194 

1077 DATA 132,120,000,254,132,000,016,016,016,05 

6 , 000,120 

1078 DATA 132,130,124,130,066,060,000,060,066,13 
4,122,002 

1079 DATA 132,,120,OOO,252,066,068,120,064,064,22 
4,000,226,5580 


< 211 > 

<153> 

<78 > 

<43> 

<143> 

<230> 

<113> 

< 122 > 

<195> 

<85> 

<225> 

<207> 

<241 > 

<216> 

<163> 

<na> 

<233> 
<201 > 
<219> 
<234> 
<205> 
< 120 > 
<234> 
<254> 
<29> 
<154> 
<233> 
<217> 
<119> 
<6B> 
<1B4> 
<3> 
<226> 
<43> 
< 120 > 
< 10 > 
<204> 
<160> 
<38> 
< 12 > 
<157> 
<197> 

<73> 
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6Z 




98/U- 


<£ 6 > 
<001 > 
<96l> 
< 111 > 
<821 > 
<901> 
<Z9I> 
<B> 
<9IZ> 
<£> 
<W> 
<££> 
<TZT> 
<6ZI> 
<££Z> 
< 6 > 
<9£I> 
<S9> 
<9ZI> 
<261 > 
<6ZI> 
<911> 
<99 > 
<Z91> 
<ZZZ> 
<Z9> 
<0ZI> 
<£5Z> 
<ZSZ> 
<00Z> 
<ZZZ> 
<ZZ> 
<89Z> 
<Z6l> 
<91> 
<60 
<B01> 
<£9Z> 
<£9l> 
<M!> 
<95Z> 
<0BZ> 
<Z9> 


960*960*9 

60*091*091*091*091*091*091*091*091*091 W1WJ S911 

Z69£*09I *091 *0 

91*091*091*960*960*960*960*960*960*960 WXVÜ 9911 

£00*00*5 

90*590*590*590*590*590*590*590*590*590 WXUO £911 

59O*S90*S 

90*000*960*960*£00*590*590*590*590*590 VIVO Z911 

590*590*5 

90*590*590*590*590*590*590*000*960*960 UXVa 1911 

960*200*9 

00*500*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0 VXV Q 0911 

I1B1*Z£0*Z£0*Z 

£0*Z£0*Z£0*Z£0*Z£0*Z£0*050*690*Z£0*Z£0 VIVO 6511 

Z£0*Z£0*Z 

£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0 VXVO B511 

Z£0*Z£0*Z 

00*600*500*Z£0*900*Z£0*Z£0‘Z£0*Z£0*Z£0 VXWI ZS11 

Z£0*Z£0*Z 

£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0 WXVQ 9511 

Z10*I10*Z 

£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0*Z£0 VIVO 5511 

Z9Z1*Z£0*Z£0*Z 

£O*Z£0*Z£O*Z£O*Z£O*BOO*Z£O*£0O*Z0O*O9I VIVO 9511 

BOO*B9Z*Z 

00*Z00*Z2I*800*901*£00*Z00*900*Z00*9£1 WXWO £511 

£00*Z00*9 

91*8£1*9Z0*£0O*ZO0*Z£0*B0O*99O*£0O*Z00 VXVO Z511 

510*ZOO‘8 

OZ*000*000*000*000*000*000*000*000*000 VXWO 1511 

000 * 000*0 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 wxva 0511 

889*000*000*0 

00*000*000*000*000*000*000*000*000*000 tfiua 6911 

000 * 000*0 

00*100*090*£00*000*000*000*000*000*z00 WXüa 8911 

ZOO*ZOO*z 

00*ZOO‘ZOO‘ZOO*ZOO*900*ZOO*ZOO*900*500 VXVa Z911 

000 * 000*0 

00*000*000*55z*l£0*000*00z*000*000*000 VXOa 9911 

000*160*0 

00*000*000*000*000*000*000*000*000*000 Vi.ua 5911 

0Z6I*000*000*0 

00*000*000*000*000*000*000*000*000*000 uiua 9911 

000 * 000*0 

■00*000*000*000*000*000*000*000*800*000 Viva £911 

Z£0*Z90*0 

Z0*891‘900*0Z0‘910*900*580*910*B90*SZ1 VXVO Z911 

Z10*9B0*S 

Z1*1Z0*0B0*5£Z*S00*B0Z*5SZ*Z00*990*SZ1 VXVQ 1911 

100*000*5 

80*000*000*000*000*000*000*000*000*000 VXtfa 0911 

OOB*000*OOO*O 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 vxva 6£11 

000 * 000*0 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 vxwa 8£11 

000 * 000*0 

00*000*000*000*000*000*000*000*000*000 vxva Z£11 

Z61*000*Z 

61*800*B90*000*000*ZOO*000*610*B90*890 WXVÜ 9£I1 

960*000*0 

00*Z00*0£l‘000‘ZI0‘000*000*000*£00‘000 vxva 5£ll 

6281*000*000*0 

00*000*000*000*000*000*000*000*000*000 vxva 9£11 

000 * 000*0 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 vxwa ££11 

000 * 000*0 

00*Z61*Z10*000*Z10*000*Z10*000*8Z1*000 vxva Z£ll 

0 £ 1 * 000*0 

00*000*9£0*800*BZ1*£51‘ZOO*891*Z01*050 WXVQ 1£11 

8Z1*£S1*0 

00*5£0*991 *800*000*Z90*000*8Zt *000*890 WXVÜ 0£11 

9582*000*561*0 

00*261*000*000*000*000*000*000*000*000 vxva 6Z11 

000 * 000*0 

00*000*000*000*000*000*000*000*000*000 vxva 8Z11 

000 * 000*0 

00*000*ZIO*B90*800*BZI*ZIO*000*Z10*BZI VXUQ ZZ11 

ZI0*091‘0 

10*Z61 *B60*Z£1*010*960*Z91 *Z£0*660*680 WXVO 9Z11 

600*891*1 

01 *8£1*880*680*600*051*691*B£O*0£O*Z9O VXVO SZ11 

99Z*00Z*090*0 

00*000*000* l£l *800*961 *800*890*Z£0*000 VXWO 9Z11 

ZOO*000*8 

90 *Z£0* OOO *£00*000*000*000*000*000* OOO VXVQ £Z11 


<Z£Z> 000*000*0 

00*000*000*000*000*000*000*000*000*000 vxva ZZ11 
<9£Z> 000*000*0 

00*000*000*000*000*000*000*000*000*000 wxva 1Z11 
<S£Z> 000*000*0 

00*000*000*000*000*000*000*000*000*000 vxva 0Z11 
<£SZ> 51ZZ‘000*000*0 


<Z91> 

<911> 

<1£Z> 

<10l> 

<£9Z> 

<BZZ> 

<zzz> 

<9ZZ> 
<961 > 
<ZZ1> 
<59> 

<zzz> 

<1ZZ> 
<Z9> 
<Z£> 
<191> 
<Z1Z> 
<9Z> 
<£81 > 
<09> 
<69> 
<SZ!> 

<zz> 

<96> 
<Z9> 
<S0Z> 
<9£> 
<6Z> 
<ZSZ> 
<81> 
<£9Z> 
<09> 
<5SZ> 
<8Z> 
<811> 
<9£Z> 
<6Z1> 
<ZS> 
<091 > 


00*000*000*000*000*000*000*000*000*000 VXVO 6111 

000 * 000*0 

00*000*B9l*000*000*251*000*000*ZS1*000 vxva 8111 

, 000*891*0 

00*000*000*000*000*000*000*000*000*009 vxva ZI 11 

000 * 000*0 

00*000*000*000*000*000*000*000*000*000 vxua 9111 

990*580*1 

0O*980*0Zl*1Z0‘691*BIZ*901*9SZ*S1Z*161 VXVO 5111 

16£Z*69I*SSZ*9 

01*9B0*0Z1*120*990*580*100*000*000*000 VXVO 9111 

000 * 000*0 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 wxva £111 

000 * 000*0 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 vxwa ZIII 

000 * 000*0 

00 * 000 * 000 * 000 * 000 * 000 * 000 * 000 * 000*000 vxva II 11 

000 * 000*0 

00*000*0^1*0ZI*Z90*6£Z‘B5Z*S£Z*S9I*0ZI UXVO Olli 

I60Z*9£Z*SZI*9 

Ol*Z£0*09I*Z0l*6O0*Z6l*891 *ZOO*890*000 VXWa 6011 

000*210*0 

00*OOO*SSZ*£00*000*000*000* 000 * 000*000 vxva 8011 

000 * 000*0 

00*000*000*000*000*000*000*000*000*000 uxva ZOII 

000 * 000*0 

00*000*000*000*000*000*000*000*000*000 vxwa 9011 

000 * 000*0 

00*000*000*000*000*000*891*0ZI*0I0*5£Z wxwa soll 

IS9£*5SZ*15Z*I 

ZI*OZI*060*BB0*69I*OSZ 4 960*££Z*010*821 VXVO 9011 

Z90‘£00*0 

00*000*ZIO*000*000*B90*000*Z6I*552*000 VXVQ £011 

000 * 000*0 

00*000*000*006*000*000*000*000*000*000 vxva ZOII 

000 * 000*0 

oo*ooo*ooo*ooo‘ooo*ooo*ooo*ooo*9zz*99o vxva 1011 

B90*0ZI*8 

90*990*ZSZ*000*910*090*890*990*990*990 ViVa 0011 

0£ZZ*9ZZ*000*0 

00*OOO*000*000*910*000*000*000*990*0£I WXWI 6601 

0£l*991*9 

91*0ZI*B61*000*9£I*890*890*Z5Z*890*9£0 VXW1 8601 

0 £ 0 * 000*0 

90*B90*Z£I*651*821*0£I*9ZI*000*621*£SZ VXVO Z60I 

£SZ*6ZI*6 

9Z*69Z*6ZI*19Z*6ZI* 161 * 161*6ZT *651*651 VXVa 9601 

6ZI*£9I* 1 

9Z*I£I*O£Z*BZZ‘09t*9IZ*OB0*080‘£91*£6I WXtfO 5601 

£68S*£01*6£0*6 

90‘Z20‘OIO*OIO*BOZ*OBO‘BOZ*9IO‘B90*960 VXWO 9601 

Z6I*BZI * 1 

10*010* 110*800*ZIO*900*£00* 100*511 *£SZ VXVO £601 

SSZ*Z9Z*I 

£Z*961*5£I*0£I*90Z*SSZ*SSZ*6Z0*1£Z*Z90 VXWO Z60I 

522*590*5 

5Z*5SZ*SSZ*9ZI‘Bll*911*890*Z£0 , 9Z1*950 VXVa 1601 

9ZO*9IO*0 

OO*OOO*OOO*OOO*8IO*01O*9£O*9£O*ZZO*ZZO vxva 0601 

£6Z0I*9£0*9£0*£ 

52*021*820*000*000*000*000*000*152*152 VXVO 6801 

I£Z*£9Z*£ 

9Z*£9Z*ZZZ*ZZZ*161 * 161 * 161*£ZZ*£ZZ*£ZZ WXWO 8801 

6£Z*ZOZ*X 

OZ*ZOZ*ZOZ*66I*661*661*661*561*ZZZ*ZZZ VXW1 ZBOI 

ZZZ*ZZZ*Z 

ZZ*ZZZ‘Z9Z‘900‘Z0Z*Z0Z*Z0Z‘Z0Z‘Z0Z*£9I VXVO 9801 

651 *821*5 

61*561*561*561*561*£6T *£ZZ*Z60*900*900 VXUO 5801 

09£9*9IO*ZIO*8 

Z0*02I*09Z*Z6l*8ZI*BZI*821*Z6t*000*000 VXVO 9801 

SSZ * ESZ * Z 

60*Z60*£II*I50*950*0£0*510*£00*Z£0*9ZO VXUO £801 

910*910*9 

10*991*952*000*9!I*9£0*090*B90*090*99I VXVO ZBOI 

911*000*0 

£T *OZO*9ZO*9ZO*Z80*Z80*9ZZ*000*000*000 VXVO 1801 

000 * 000*0 

00*000*000*000*950*890*990*990*990*990 VXtffl 0801 


diuuiejSojd 







Programme_ 

1166 DATA 096’, 160,160 v 160,160 v 160 9 160 v 160 f 160 v 16 


0,160,160 <96> 

1167 DATA 160,160,160,096,096,096,096,096,096,09 
6,096,160 <1B6> 

116B DATA 160,160,160,160,160,160,160,160,160,14 
4,145,146 <221> 

1169 DATA 130,096,096,096,096,129,144,145,146,16 

O,160,160,0425 <122> 

1170 DATA 160,160,160,160,160,160,160,096,096,09 

6,096,096 <120> 

1171 DATA 096,096,096,129,141,142,143,160,160,17 

9,1B0,160 <74> 

1172 DATA 131,096,096,096,096,096,096,096,096,09 

6,096,096 <215> 

1173 DATA 096,12B,160,164,165,166,160,160,160,16 

0,160,096 <62> 

1174 DATA 096,096,096,096,096,096,096,096,096,09 

6,096,120,7420 <136> 

1175 DATA 160,101,102,160,096,094,095,097,090,09 

9,074,003 <45> 

1176 DATA 004,004,084,084,0B4,096,160,167,16B,16 

9,160,160 <150> 

1177 DATA 160,160,160,096,096,096,096,096,096,09 

6,096,096 <67> 

1170 DATA 096,096,096,096,129,1B3,104,130,096,09 
6,096,096 <236> 

1179 DATA 096,096,096,096,096,096,096,096,096,09 
6,129,170,6916 ^ <160> 

1100 DATA 171,172,160,141,142,143,130,096,096,09 
6,096,096 <101> 

1181 DATA 096,096,096,096,096,096,096,096,096,09 
6,096,096 <4> 

1102 DATA 096,096,096,077,078,079,096,083,007,09 
6,096,096 <149> 

1183 DATA 096,096,096,096,096,096,096,096,096,09 
6,096,096 <6> 

1104 DATA 096,096,096,096,096,096,096,096,096,09 

6,096,096,6071 <224> 

1105 DATA 096,096,096,096,096,096,096,096,096,09 

6,096,096 <0> 

1106 DATA 096,096,096,096,096,096,096,096,096,09 

6,096,096 <9> 

1107 DATA 096,096,096,096,096,096,096,004,004,01 

4,062,238 <25> 

HOB DATA 062,001,014,014,014,001,014,014,062,01 
4,001,014 <124> 

1109 DATA 014,014,004,004,062,014,014,001,014,01 
4,062,014,3754 <56> 

1190 DATA 001,110,014,062,001,001,014,014,014,00 

4,014,004 <59> 

1191 DATA 004,004,014,254,070,001,014,062,014,00 

1,014,014 <171> 

1192 DATA 014,014,001,014,014,014,004,004,014,01 

4,062,001 <150> 

1193 DATA 014,014,014,014,001,014,014,014,001,00 

1,014,014 <195> 

1194 DATA 004,052,052,005,005,053,005,001,049,00 

1,001,001,1255 <231> 

1195 DATA 049,001,001,001,001,001,001,001,001,00 

5,005,005 <170> 

1196 DATA 005,049,241,001,001,001,049,001,001,00 

1 ,001,001 <103> 

1197 DATA 001,001,049,005,005,005,053,005,005,00 

5,005,005 <203> 

1190 DATA 005,001,005,053,005,001,005,005,101,00 
5,001,005 <222> 

1199 DATA 053,005,245,005,005,005,005,001,005,00 

5,005,005,1104 <94> 

1200 DATA 001,005,005,053,001,001,005,053,005,00 

5,005,005 <25> 

1201 DATA 005,005,005,005,005,001,053,005,005,00 

1,005,005 <163> 

1202 DATA 005,010,010,010,005,005,005,005,005,05 

3,010,122 <12B> 

1203 DATA 010,010,010,010,001,010,050,010,001,00 

1,010,010 <1B5> 

1204 DATA OIO,026,010,050,05B,010,010,005,001,00 

1,001,061,001 <97> 

1205 DATA 013,013,013,013,005,005,005,117,053,00 

5,005,005 <16> 

1206 DATA 005,005,005,005,005,005,005,007,007,05 

5,005,005 <164> 

1207 DATA 001,001,005,005,053,005,005,005,005,00 

5,005,005 <97> 

1200 DATA 005,053,005,005,005,013,013,000,000,00 

1 , 001,001 < 212 > 


1209 DATA 001,001,001,001,001,001,001,001,001,00 

0,000,007,504 <19B> 

1210 DATA 007,007,000,000,001,001,000,000,000,00 

0 ,000,000 <197> 

1211 DATA 000,000,000,000,000,000,000,000,005,01 

3,013,005 <56> 

1212 DATA 000,000,024,006,023,019,003,006,007,00 

5,020,003 <252> 

1213 DATA 0^3,009,005,007,007,007,006,019,019,00 

3,005,007 <H6> 

1214 DATA 010,022,002,029,007,020,022,003,049,00 

1,001,001,460 <226> 

1215 DATA 001,001,049,129,049,049,001,001,001,24 

1,001,001 <170> 

1216 DATA 049,001,001,001,001,001,001,001,001,00 

1,001,001 <175> 

1217 DATA 001,001,001,001,001,001,001,062,014,01 

4,014,062 <133> 

1210 DATA 014,014,014,014,014,014,062,014,014,03 
0,014,062 <225> 

1219 DATA 062,014,014,014,062,014,014,014,062,01 

4,126,062,1509 <B1> 

1220 DATA 014,062,014,014,014,254,014,014,014,01 

4,014,039 <6B> 

1221 DATA 020,005,029,025,010,020,029,015,012,03 

2,020,009 <214> 

1222 DATA 030,025,007,027,030,005,024,035,003,02 

1,040,002 <1B0> 

1223 DATA 017,045,001,013,050,169,001,141,035,22 

0,032,026 <187> 

1224 DATA 202,032,004,192,032,243,192,032,050,20 

5,032,0B0,30B2 <148> 

1225 DATA 193,169,000,141,044,200,141,045,200,14 

1,046,200 <115> 

1226 DATA 032,061,195,032,010,194,032,110,193,07 

6,020,192 <1> 

1227 DATA 032,227,203,173,000,220,041,016,240,24 

6,162,010 <100> 

1220 DATA 160,000,152,072,032,227,203,104,160,13 
6,208,246 <97> 

1229 DATA 202,200,243,032,227,203,173,000,220,04 

1,016,200,7742 <60> 

1230 DATA 246,032,237,204,096,169,119,133,001,16 

0,024,105 <2> 

1231 DATA 255,059,153,000,200,136,016,247,160,01 

0,105,024 <50> 

1232 DATA 060,153,020,200,136,016,247,169,231,13 

3.254.169 <61> 

1233 DATA 007,133,255,160,000,169,032,145,254,19 

0,254,165 <4B> 

1234 DATA 254,201,255,208,002,198,255,165,255,20 

1,003,200,0840 <106> 

1235 DATA 236,032,175,204,076,146,192,120,169,17 

7,141,020 <30 > 

1236 DATA 003,169,192,141,021,003,169,106,141,01 

B,208,173 <190> 

1237 DATA 017,200,041,127,141,017,208,169,129,14 

1,026,208 <172> 

1230 DATA OBB,096,173,025,200,141,025,200,041,00 
1,20B,007 <25> 

1239 DATA 173,013,220,000,076,126,234,173,010,20 

B,201,186,7401 <3> 

1240 DATA 240,021,169,000,141,032,200,169,106,14 

1,010,200 <151> 

1241 DATA 173,017,20B,041,127,141,017,200,076,12 

6.234.169 <157> 

1242 DATA 005,141,032,200,169,000,141,010,200,17 

3,017,200 <191> 

1243 DATA 041,127,141,017,200,076,126,234,169,11 

7.133.252 <252> 

1244 DATA 169,060,133,253,169,000,133,254,169,00 

6,133,255,7053 <160> 

1245 DATA 160,000,177,252,145,254,230,252,200,00 

2.230.253 <107> 

1246 DATA 230,254,200,002,230,255,165,254,201,23 

2,200,234 <66> 

1247 DATA 165,255,201,007,200,228,169,005,133,25 

2,169,062 <55> 

1240 DATA 133,253,169,008,133,254,169,210,133,25 
5,160,000 <12> 

1249 DATA 177,252,145,254,230,252,208,002,230,25 

3,230,254,10942 <249> 

1250 DATA 200,002,230,255,165,254,201,232,200,23 

4,165,255 <161> 

1251 DATA 201,219,20B,228,096,160,073,105,043,06 

0,153,060 <10> 


30 
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9^000^153 003 ’ 136,016, 247,032,092, 197,160,024,16 

! 2^096^238 288,21lf * 36 .20B,24B,169,Öi5,141,024,21 

^OOO^Jm.BSW 003 * 173,06B,003,2 01 »003,208,019,1A 

3 2 110 157 06B,003,173,109 «°57,106,110,109,057,17 

3?103 D 0B4 106,110,110,OS7, * 60 .0°5,024,1B3,059,00 

b“33°162 183,092,007,136, 20B,245,160, 160,136,20 

0^000^177 ° 06 ’ 169,003,133 »2SS,169,104,133,254,16 

i!^0?222, TO21 201,288,2O0,O66, 2OO.200,177,254,13 

3?06B?003 177,284,133,2 51,200,177,254,133,252,17 

1261 DATA 208,024,169,173,133,249,032,233,193,16 
▼»007y133 

3^193^076 249,168,281,024 .103,212,133,251,032,25 
9?002?1OT 242,19311A9 ’ 1761 * 33 «249,032,253,193,16 
*05,251 *024,103,212,133,251,032,23 
2841024 • 103,003,133,234,202,20B, 172,09 
7 2 096?174 13A ’ 168,249 >143,230,136,192,235,20B,24 
4 2 13B?041 000,220,130,041 ,016,240,003,076,1B3,19 
3 2 194?032 OO0,2O0,O3O,173,070 .003,240,003,076,18 

itoTi ?^.^ 194 ’ 169 ’ 23S * 141,253,0O7,169,170,14 

2 2 141°Ö16 169,060,141 .010,208,173,016,208,009,03 
9.032^141 200,169,001 • 14 *.070,003,173,021,208,00 
8^ 173^071 021,ZOB,076,1B3,194,13B '°41.004,20B,03 
4^007^169 003,20B ’ 0971032 • 12a » 1 94,169,235,141,25 
3?o?6“OT,iB?9 l41 ’ 013,ZOB, 169,041,141,012,200,17 

3 2 173?021 041 ’ 191 ’ M1 • 01A,20B i1&9.001,141,071,00 
9 2 205*iS 208,009,064,141 * 021 .208,076,183,194,16 
2^003^20B 238,169,2 ° 2 ’ 133,236, °76,233,202,173,07 
^O^lll ° 39,032,12B,194 .» 6 ’ , 235, 141,235,007, 16 
B^0 9 1*127,791Ö 20B ’ 169 ' 181 ’ 141 ,014,20B, 173,016,20 
l 2 2O8?O09 141,O16,2O0,169, °01,141,072,003,173,02 
6 2 015?20B 12B ’ 141,021,208,17 B,072,003,240,023,20 
1 2 072*003 173,013,200,201 *04B,208,013, 169,000,14 < 

0 2 003*240 173,021,20B, ° 41 ,127, 141 ,021,208,173,07 < 

3^0^1^208,6621 173,06B,003, 20B,026,206,011,208 , 17 " 

3fo2i?208 2O1,O40,ZO0,O34,169,OOO, 141.O7O,OO3,17 < 

0^208^173 041 ,223 ’ 141 ,021 ,208,076,009,195,206,01 < 

O1O,2O0,2O1,253,2OB,OOB, 173,016,208,04 < 

3^208*026 O16,20B,173,071 .003,240,044,173,068,00 < 

^Ä.^bb O 13,2OB ’ 173,O13,2O8,2O1,O4b,2O0, ° 2 ' 

l" 9 ^™ 141,071,003,173, 0 2 l , 208,041.191,141,02 < 
8^009^064 05 B, 195 , 23 B, 012 , 20 b, 20 b, 008 , 173,016,20 * 

1 2 169*079 141,016,20B,07&,173,20 °.169,^003,133,25 ^ 

7 2 169*o01 1331230 • 169 ’°0°• 133 •246,169,208,133,24 < 

1294 DATA 133,248,133,245,162,005,160,000,177,25 < 

0,240,022,7943 


Programme 


1293 i D ^TA 165,250,024,105,005,133,250,230,246,23 

Of 2461024 

i 296 038,248,230,245,202,208,233,076,160,19 

f f173,066 

i Z TL D ^Z? 003,208,003,076,083,196,169,000,133,24 

r f169|003 

J 2 iL D SI2 133,235,169,079, 133,254, 169,001 , 133 v 25 
2^16",208 

12 T? DB ™ 133,2S3 * 162,005,160,000,177,254,240,00 
* ff ,232,9052 

1300 201.050,208,002,230,249,230,254,230,25 

4.230.254 

1301DflT ^ 230,254,230,254,230,252,230,252,202,20 

Bf227f165 

1302 DATA 249,240,007,201,001,240,003,076,160,19 
7 f173 f 004 

1303 DATA 220,201,224,240,003,076,160,197,173,00 
4,220,041 

1304 DATA 063,168*169,000,133,252,169,128*133*25 
3,177,252,10333 

i 3 ° 3 D «J A 170,240,237,169,000,145,252,206,066,00 
3,173,004 

i 3 ftf-» DATA 22000410001 0 160,001,145,250,201,001 ,20 
8,017,160 , 

i 3 ?!.“^ 000,169,09 °t»45,246,173,016,208,005,24 
o,141,016 

i 3 ?? Q D £I2 2O ° 0O7 *.O11,196,160,000,169,000,145,24 

6.169.255 

1309 DATA 069,248,045,016,208,141,016,208,200,16 
9,050,145,7677 

%2S0?164 246 ' 136 ’ 169,001 • »43,250,200,200,138,14 
8^201^001 24=1169,247 •»33,246,169,007,133,247,13 
0?005??IS 20B,<>08,169 ’239,076,064,196,201.002,24 
3^250^164 234,07&,064,196, »69,232,160,001,024,11 
3^021*208,9003* 43 * 246 * 160,003, *09.001,145,230,17 
9^133^50 008,248,141,021 .208,076,160,197,169,07 
0 ^ 240^003 169, ° 03 ’ 133 *231,162,005,160,000,177,25 
^202^08 ° 76,1A0 ’ 197> 16 =,230,024,105,005,133,25 
sf W?iI5 239 ’ l73 ’ 129,003,201 .255,208,003,076,04 

0 3 003^OT,79?7^ 41,066,003,17 ^ ,0A7,003, 2 01 »°0 9, 2 4 
2 3 2m“I5 067,003,032,092, 197,032,189,196,032,IO 

3?141?072 000 ’ 141 *° 21,20B ’ M1,070,003,141,07 » .OO 
5?169^001 °° 3 ’ 173,067,003, °24,105,020,141,084,00 
4^105*084 141,O04,217,O32,243 . 19 2,173,065,003,02 
b!o24??73.5740 I73 ’ OO7,O7<,,O19> 197 * »73,069,003,20 

2 3 2?9^«' 124,003,Z01,ZSS • 20B,073,169,006,141,04 
8^197^170 ° 43 * 219 ’ 141 «082,219, 141 ,083,219,076,01 

13 ? 7 D8 ™ 1Ä9 * *24,133,250,169,003,133,251,169,10 ' 

5^208^010 169,060,133 * 253 f160,000,177,250,201,25 

ÄÄ.8^ 252 * 145 ’ ZS0,Z02,20&,069,003,240, ° 2 ' 

056 *233,005,133,250,201,094,240,010,16 

d,232,056 

233,008,133 ,252,076,235,196,096,162,00 
0^202^208 136,2O0,233,13B,O72, O32,110,193,104,17 < 

6^206^065 241,032,043,192,169,03 2.»41,0B4,005,09 < 

5?1B2??™,5SBB Z40 ’ 039 • 032,040,204,032,243,192 * 16 < 
S?i69?OB6 06A,003,169,103,133,25 4.»69,003.133,25 ^ 

2 ^ 5^5 1 33 , 252 , 169 , 060 , 133 , 253 , 160 , 030 , 177,25 < 

9^000*133 I36,20B,249,O76,1 4 6 .*96,076,029,203,16 ^ 


11/86 
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software-service 


Zeitschriften und Programme von 1986 


jjflft l / SS 

Commodors 

ISSteJI-Nr. COM CK 1/2 19,-DM 

tertril-Nr. Ml CB 1/2 29,- IM 

Chöckjummtr 14 C, ittreasat Batfl« 
Huaycalra (C-16/lil), Ksrdeepy- 
rauilna ((MS/11 B] p Hofm Hl nH 91# Za1t* 
««schilt« (C-lf/lfB), lacas (VC*29), 
fleck'm« (VC-20), Charly 9ir Raka!en~ 
mann (VC-20), laterrapt-ProBrimmla* 
nm# (VC-20) 


BHtell-Nr. COM SK 1/2 12- OM 

BnleM-Nr. COM 10.1/2 SB,- DM 

Datander, Dwridor Dasb, Baslc-Befehls 
an! dan Funkt! onsfss ton 

Haft 5/99 

C&fnmoifari 

Bestall-Nr. COM DK 5/2 19,- OM 

Bas In II-Nr. COM CD 5/2 29,- OM 

SßfiCft Dnll (C-04), Dfsb-EUl (C-04), 
MC-Usen (V-20), O-D-LabyriMh (VC- 
20), Tfeb (VMO), Invrtara «f Spaca (C- 
19/110), Submarin« (C-16/116), Bilken- 
dlseramm (C-16/116) 


Schneider 

Bestell-Nr. COM SK 5/2 10,- OM 

Bestell-Nr. COM SD 5/2 39,- DM 

SterUnlc iraflk-Oesl&aer, Grata-iaM- 
rence, Itaxl 


Heft 9/86 


Commodore 

Bestell-Nr. COM CK 9/2 16,- DM 

Bestell-Nr. COM CD 9/2 20,- DM 

Moonpatrol (VC 20), Falcons Lancier 
(VC 20), Frogger (VC 20), The Games 
(C64), Cave of Death (C64) Sprites 
and Sound mit dem UMH-System 
(C64), Diggy (CI6/116), Tapedlröcto- 
ry (C16/116), Reversl (C16/116) 


Schneider 

Bestell-Nr. COM SK 9/2 16,- DM 

Bestell-Nr. COM SD 9/2 39, - DM 
Creepy, Briefeschreiben, Frutty Man, 
Mlrror Battle 


Haft 2/86_ 

CammHere 

Bestall-Nr. COM CK 2/2 16,- DM 

DastaH-Nr. COM CD 2/2 20,- DM 

Hübe (C-04), Daalc-BafahltarwalfanMi 
(C-04), Rakataastart (C-10/118), Drei¬ 
kampf (C-10/11B), Headline (C-10/116), 
Dafender (VC-20), Formal 1 (VC-20), m 
mary-Dlsplay (VC-20) 


Schneider 

ecftBli-Nr COM SK 2/2 16p- DM 

Bestell-Nr. COM SD 2/2 39,- DM 

Allan 2001, Diamond Hunter, Directory 


Heft 6/B6_ 

Commodore 

Bestell-Nr. COM CK 6/2 16,- DM 

Bestell-Nr. COM CÖ 6/2 20,- DM 

Muslc-Master (C-64), The llttlo Puck 
Sees home (C-64), EDDY (C-04), Intars- 
Utfllltv (C-16/116), Chacksummor (C-16/ 
116), Affenwurf (C-16/116), Data-Maker 
(VC-20), Karato-Kld (VC-20), Q-Bort (VC- 
20 ) 

Schneider 

Bestell-Nr. DOM SK B/2 10,- DM 

Bestell-Nr. COM SD 6/2 30,- DM 

Bfsksort Mini-Förth, Starcammand 


Heft 10/86 


Commodore 

Bestell-Nr. COM CK 10/2 16,- DM 

Bestell-Nr. COM CD 10/2 20,- DM 

Laufschrift (VC 20), Checksummer 
(VC 20), Treasure Robber (VC 20), 
Scmmble (VC 20), Refusal-Basictader 
(C-16), Hardy-Copy-Blltz (C-16), Auto¬ 
start (C-16), Flll-Utlllty (C-16), Rallway 
(C-16), Domino (C-16), Sprite Tum/ 
Qharacter-Swftch (C-64), Checksum¬ 
mer (C-64), Horse Games (C-64), Pa¬ 
trouille (C-64) 

Schneider 

Bestell-Nr. COM SK 10/2 16,- DM 

Bestell-Nr. COM SD 10/2 39,- DM 

Checksummer, Panlc-Car, Scurfy 
Joe, Drawgenerator, Airfighter 


Haft 3/80__ 

BctlatMIr.^OM CK 3/2 1«,- KM 

Bestall-Nr. COM CD 3/2 2C,- DM 

Mlnar-Jumpsr (C-16/116), Hera 
(C-19/11SK Data-Maksr (C-16/110), Be« 
fahlsonaaitaraaa (C-04), Starchip 
(C-64), Mlal-Car-flaca (C-S4), Taxt- 
Scraller (C-64), Text-Editor (C-64), 
Checksammer (VC-20), Hobln at Ra- 
voawrack (VC-20), Mlnl-Karata (VC-20), 
Autoaumber-Roudna (VC-20) 

Schnaldar 

Bestell-Nr. COM SK 3/2 16,- DM 

Bastell-Nr. COM SD 3/2 39,- DM 

Smlly, Scropl, Dia verrückte Fabrik, Dlsc- 
Holp 


Haft 7/86_ 

Bw^H-nTcOM CK 7/2 16,- DM 

Dastall-Nr. COM CD 7/2 20,- DM 

VC-20-Saund-Deme, MH Rush (VC-20), 
Gkast-Hall (VC-20, RaHrannsr (C-64), 
Basic Extensfoit (C-64), Meteorlten- 
sturm (C-64), Ckccksummsr C-16/116, 
Airwelf (C-16/116), Break-Out (C-16/116) 


Schneider 

Bestall-Nr. COM SK 7/2 16,- DM 

Bestell-Nr. COM SD 7/2 30,- DM 

Poker, Cavo-Walker, Dlskattenarchlv 


Aus diesem Heft: 


Bestell-Nr. COM CK 11/2 
16,- DM 

Bestell-Nr. COM CD 11/2 
20,- DM 


Bestell-Nr. SK 11/2 
16,- DM 

Bestell-Nr, SD 11/2 
39,- DM 


Kttt4/CC _ 

Commodore 

Bestell-Nr. COM CK 4/2 10,- DM 

Bertell-Nr. COM CD 4/2 20,- Mp 

Ohuttlo (VC-20), Josef la den HOhHo 
(VC-20), Herfa-Routine (VC-20), Sfcoat K 
(VC-20), Fast Trust (C-04), Data-Tsxt 04 
(C-04), Gary, dar schnalle Kabelvarfeflir 
(C-16/116), SOI (C-10/116), Baap-Raatlna 
(C-16/116) 


Schneider 

Bestall-Nr. COM SK 4/2 16,- DM 

Dastall-Nr. COM SD 4/2 30,- DM 

Spaca-Hescae, Toxtedltor, Starfight 
Praaramm-Rsttor 

Heft 8/66 

CommHoro 

Bastall-Nr. COM CK 8/2 16,- DM 

Bestell-Nr. COM CD 6/2 20,- DM 

Death Desart (C-64), 3-D-Lahyrlnth (C- 

04), Klick (C-64), Bahnhef (VC-20), Ome¬ 
ns Attack (VC-20), Ssund (VC-20), Platl- 
aenlayaut (C-16/116), Billoon Shoat (10/_ 
116), Hardcopy (C-10/116) 


Schneider 

Bestell-Nr. COM SK 8/2 16,- DM 

Bestell-Nr. COM SD 8/2 39,- DM 


— 

Alle hier aufge¬ 
führten Kassetten 
und Disketten kön¬ 
nen jederzeit nach¬ 
bestellt werden. 

Bei den Zeitschrif¬ 
ten sind die Ausga¬ 
ben 5, 8, 9,10, 12 
(85) und 5, 6, 7, 8, 

9,10,11 (86) noch 
vorhanden. 


Rechtzeitig zur Weihnachtszeit! 4 

Wir haben aufgeräumt und tolle Pakete geschnürt! 
. Und das zu einem Preis, . 

bei dem das Verschenken leicht fällt, "ff 
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Superpaket 1 
Spfele 


fern 


Monster Aitack, Projekt, High Noon, Brieftaube 
Cadilort, Turbo Jet, Sea Attack, The Maxe 
Graze Game. Gefaxt, Space Comefs, Sheet, 
Vampir, Memory 

IEcd'i 1 Kassette 20,- 

SP ' C ' D ‘ 1 Diskette 20 ,- 


Superpaket 1 


Horror Castle, Fantasy County, Senso, Jumping 
Joe, Schatztaucher, Shaolin, City Runner 

Kassette 20,- 

SP-O-D -1 Diskette 20,- 


Superpaket 2 
Spiele 

Tank Duell, Astronaut. Jungte i, Jungls 2, Sufo 
Flre-Legion. Spiders, Star Ballig, Super 
Breakout, Mission Rgscug, Roadpainter, 
Moonsweepar, Scotti 


Kassette 20,- 
Diskette 20, - 


Fantasy County 
QoMrauech / 
Moon Fight sr 
FrogearMumor 
Cosmlc Terror/ 


Panle/Phantom/ 

Mataorstorm 


Superpaket 3 
Anwender 


The Basic, Bastereset, Data-Generator, Print* 
Generator. Supemnon-64, Restore N. Disky lö, 
Flll-Loacter, Funktionstest an Belegung, Autostart 
Multrbasic, Bifdeditor, Spritehiife + Demo, 
Aulonumber, Mjcfo-Tools + Mioader 


Kassette 20, - 
Diskette 120, - 


Frais BaateH-Mr, 
Kass.fDlak. 


Thm /Marcurloua 
Inter ca p t or 
Basa/Schottar 
«HanpHan/ 

Tha Way/Spsca 10x1 
Fleht Night/Monster- 
Jeed/Coloasua HüMa 
Mr> Fostman/Moon- 
tunnal/Moanrslly*«/ 


Thal Drtvar/ 
P—dly H Hsa lan 


24,50/29.50 

24,50/29,50 

24,50/29,50 

24,50/29,50 

24,50/29,50 

24,50/29,50 


C 13 
C 23 
C 33 
C 53 

C 53 
C 53 


Superpaket 1 


Flowers. Tanker, Jupiter Rescue, Einbrecher. 
Hospital, Alien, Flfpperbsll, Sub-Zone. Dr Cerp. 
Gao-Zöyxon, Froggfea Night Mare, Punkte 
fresser, Starwars, Salavage Crew 

SP_V_1 nur Kassette 20, - 


Brifcekanbau/ilaitto 


•tralchar/lnkaechatz 

Pere a hootlng/ 

Bobby In Actlon 
Josef bi den 
Katakomben 
Hat Food/ 
Mon-Reaeue/ 

So lindpropramm 
Castle Draeulaf 

UfO-Daitroyer 


10,-/21,50 

16,-/21,50 

16,-/21,50 

0,50/15,- 

14,50/19,50 

14,60/19,50 


V 13 
V23 

V 33 

V 43 

V 53 

V 03 


Anleitungen zu unseren Programmen erhalten Sie aus un- 

2!^. ef l en ; ® ei ausverkauften Heften erhalten Sie zum 
Heftpreis Fotokopien der Spielbeschreibungen 


Schneider 


Frais BsstsH-Nr. 
Kass./Msk. 


Superpaket 1 
Spiele 

Allen Hunter. Catch, Interceptor 3 D* City 
Lander, Conante Castle, Copter Patrool, CPC 
Bert, Crash, Damen Attack, Duell, Etls, Ubyrint, 
Miner, Tower, Sniderte Maie, Geister Schloß 
Fallschirmspringer, Secret Valley. AJadin, 
Hountad Castle, Cava runner, Cobra, Erwin, 
Kruemi, Q-Bert 


Kassette 20, - 
Diskette 27,- 


Superpaket 2 
Anwender 

Back up, Data gen. Daten Verwaltung, Dtscopy 
Monitor, Painter, Remkilier, SU-Fite, 
Tastaturbetegung 

f?*f b » ? Kaaeetta 20, - 

SP-SR-D-2 Diskette 27. - 


l «mo ia.aoaa.ao 

Wdnloht/Horror Cavss 15,50/28^0 


Red Alert/ 

2ps*dy-Frog»/Aiirlon 


SR 43 


10^0/29,50 SR 53 


Software Service 


Der Tronic-Verlag bietet 
Spitzensoftware für jeder¬ 
mann. 

Überzeugen Sie sich von 
unseren Angeboten und 
bestellen Sie noch heute. 
Alle Bestellungen werden 
innerhalb nur 

1 Woche 

nach Eingang bearbeitet. 
Telefonische Bestellungen 
unter der Rufnummer 


05651/30011 
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n 


<cbi> sbz*ioz*8 

0Z*910*£10*BlZ*690*SfiZ*691*10Z*£ll*9X0 WIM £Z11 
<891> Z1Z*101*1 

Z0*11Z*6ZZ*9S0*000*691*ZZ0*01Z*SSZ*10Z WXWQ ZZ11 
<lll> 80 Z a 9I0 a £ 

10*S1Z*690*SBZ*691*ZZO*60Z*BBZ*10Z*80Z WXWQ 1Z11 
<SX> 9IO a £IO a 8 

lZ*690*SBZ*69t*llZ*££l*lSZ*ZXl*ZlZ*££l WXWQ OZ11 
<££Z> 9£I6*91Z*XXI a O 

00*091*10Z*X61*9X0*£00*01Z*0£t*10Z*lfiZ WXWQ 6111 
<801> XX1*10Z*X 

61*9XO*Z10*OlZ*O6O*10Z*lSZ*XXl*IOZ*X6l WXWO 8111 
<WI> 9X0*120*0 

1Z*0S0*10Z*1SZ*XX1*600*9X1*Z80* VOZ a ZZO WXWO Xlll 
<W> 9X1 A ZZf A 1 

0Z*91Z*XX1*100*091*10Z*X61*9X0*£00*01Z WXWO 9111 
<SZ1> S£Z A 10Z A £ 

1Z*S00*S1Z*690*BBZ*691*10Z*X61*9X0*£00 WXWQ Sill 
<081> ZXZ6*01Z*100*1 

0Z*ZBZ*XX1 *000*091*61Z*££1*000*691 A ££Z WXWO 1111 
<W> ££1*80Z*6 

91*1BZ*££1*000*691*E1Z*££1*100*691*£SZ WXWO £111 
<Z£Z> ££1*£00*6 

91*ZBZ*££1*6X0*691*I0Z*ZZZ*9X0*£00*01Z WXWO Zlll 
<06> SBZ*10Z*£ 

!Z*B00*81Z*690*BfiZ*691*10Z*ZZZ*9X0*£00 WXWO 1111 
<681> 80Z*0£Z*X 

XI*000*091*X1Z*££I*B0Z*691*91Z*££I*010 WXWO 0111 
<XOZ> £116*691*B1Z*£ 

£1*Z£0*691*1SZ*££1*£00*691*0SZ*££1*0X0 WXWO 6011 
<961> 691*£1Z*£ 

£1 *80Z*0£0*£X1 *960*X61 *Z81 *9X0*£00*01Z WXWQ 8011 
<18l> 900*10Z*8 

lZ*fi91*BlZ*0£Z*,0fiZ*££l*B00*S0t*lZ0*0fiZ WXWO ZO11 
<CZ> B91*91Z*Q 

£Z*91Z*0£Z*HZ*B£0*1Z0*1SZ*S1I*100*£XO WXWO 9Ü1T 
<CIZ> 100*80Z*£ 

£Z* 10Z*100*01Z*Z£Z* !OZ*lSZ ft ZXl*fi£Z*££l WXWO COVI 
<X91> 77AA l /AA l AOT l n 

!Z*191*lSZ*£Cl*XlZ*691*0GZ*fill*l00*£20 WXWO 1011 
<0£Z> 100*110*0 

BZ*XXl*91Z*filI*010*S01*1Z0*91Z*XX1* 100 WXWO £011 

<B9> 091*00Z*X 

ll*9X0*0CZ*fill*Z00*600*0BZ*XX1* 100*091 WXWÜ Z011 

- <*> 110*111*z 

00*10Z*61Z*S91*£ZZ*B0Z*Z0Z*ZCZ*0£Z*ZBZ WXWO lOll 
<CB> 0£Z*ZGZ*0 

£Z*ZBZ*0£Z*ZBZ*0£Z*1SZ*0£Z*1SZ*0£Z*61Z WXWO OOll 
<1B1> CX9B*0£Z*Z00*8 

0Z*£1Z*X61*1SZ*XX1*100*091*Q10*01Z*Z&Z WXWQ 66£1 
■CXX1> XXI *000*0 

91*CCZ*££1*B0Z*691*1SZ*££1*000*691*COO WXWQ B6£l 
<X11> Z91*££Z*£ 

£1*£00*691*ZSZ*££1*6X0*691*61Z*££1*000 WXWO X6£l 
<681> 691*£1Z*£ 

£l*010*fi01*1Z0*91Z*XX1* 100*091*861*ZB1 WXWO 96£1 
<6Z> 9X0*£00*B 

OZ*0£l*10Z*91Z*XX1* 100*091*OOZ*X11*9XO WXWO C6£l 
<0X1> l£X8*£00*01Z*fi 

SZ*10Z*80Z*910*£10*11Z*690*CCZ*691*OOZ WXWQ 16£I 
<66> Xll*9X0*£ 

00*01Z*060*10Z*lZ0*B0Z*fiCZ*10Z*80Z*910 WXWO £6£l 
<0£1> £10*HZ*6 

90*SSZ*691*110*B0Z*91Z*XX1*000*091*00Z WXWO Z6£l 
<G91> Xll*9X0*Z 

£Z*80Z*Z0Z*GCZ*££1*000*501*CSZ*C91*1CZ WXWO 16£1 
<0£1> ££I*010*S 

Ol*1Z0*1SZ*C91*1CZ*S11*910*600*Z61*110 WXWO 06£1 
<SfiZ> ££Z6*IfiZ* XXI * 9 

£1*0X1*XZl* HO*ZBZ*XXl* 100*091*OSZ*fill WXWO 68£1 
<Z61> 1CZ*C91*1 

00*091*SCZ*0£Z*Z00*111*1SZ*££1*1SZ*101 WXWO 88£1 
<Z1Z> ISO‘901*1 

Z0*901*1Z0*901*ZCZ*XX1*9£T*Z10*ZSZ*XX1 WXWO XB£1 
<Z1> OOZ*CfiZ*£ 

£1*C00*691*1EZ*££1*ZZZ*691*0SZ*B11*CCZ WXWO 9B£1 
<6X> 691*000*0 

91*0GZ*S11*ZSZ*C9l*£00*091*Z0Z*££Z*Z£0 WXWO CB£1 
<891> OIOOI*9£Z*££! *Z 

OZ*691*C£Z*££l*llZ*691*£60*BOZ*fiSZ*lOZ WXWQ 1B£1 
<*B> 80Z‘9T0*£ 

10*11Z*690*BSZ*69I *661 *Z£Z*9XO*HO*BOZ WXWQ £B£I 
<6X1> CSZ*10Z*8 

0Z*910*£10*HZ*690*BCZ*691*110*B10*£1Z WXWQ ZB£I 
<B6> 9£0*£1Z*£ 

£1*ZSZ*XX1*00Z*XZ1*B0Z*61Z*X61*91Z*XX1 WXWQ 18£1 


<£61> 000*091*6 

1Z*££1*661*Z£Z*9X0*8£Z*80Z*Z0Z*ZBZ*££1 WXWO OBCI 
<801 > HZ8*S0O*B01 *1 

ZO*ZCZ*S91*£10*BOZ*SCZ*10Z*ZSZ*XX1*000 WXWQ 6X£1 
<£X1> 091*900*Z 

91*£GZ*££1*£00*691*ZSZ*££1*101*691*661 WXWO 8Z£1 
<£81 > Z£Z*9X0*£ 

00*01Z*0£1*10Z*91Z*XX1*100*091*661*Z£Z WXWQ XX£l 
<HZ> 9X0* £00*8 

0Z*0BZ*XX1 *£00*091 *80Z*910* 111 *HZ*SOO WXWQ 9X£I 
<1XI> 80Z*910*£ 

XI*661*110*9X0*£00*01Z*91Z*B11*100*fi01 WXWO SX£1 
<B91> 190B*1ZO*91Z*X 

XI *9£l *661 *HO*9XO*0OZ*91O* 111*B0Z*910 WXWQ 1X£I 
<66t> S10*HZ*6 

90*BBZ*691*661*110*9X0*£00*01Z*BBZ*10Z WXWO £X£1 
<1Z> 91Z*B11* I 

00*££Z*9S0*91Z*XX1*9£1*BZO*01Z*OBZ*XXl WXWO ZX£I 
<X£1> 100*091*0 

0Z*X11*9X0*£00*01Z*100*10Z*00Z*X11*9X0 WXWO IX£1 
<1!Z> 010*01Z*Z 

00*10Z*X00*01Z*000*1ZZ*810*01Z*£00*10Z WXWQ 0X£1 
<Z81> £ZZB*£00*890*1 

XI *0BZ*XXl*ZO0*091*00Z*BZ0*9XO*£00*Hl WXWO 69£1 
<19> Z00*10Z*0 

BZ*XX1*100*091*OOZ*X11*9XO*BOZ*1ZO*111 WXWO B9£l 
<01> 80Z*1Z0*S 

10*HZ*690*SBZ*691*0BZ*B11*ZB1 *000*091 WXWQ X9£l 
<£X> Z1Z*100*1 

11*BZ1*691*00Z*X11*9X0*ZBZ*B11*100*B01 WXWO 99£1 
<*•*> Ä Ä 1Z0*ZSZ-*X 

XI*B1Z*191*£BZ*££1*X00*691*ZCZ*££1*X1Z WXWQ B9£T 
<£1Z> X0ZS*691*00Z*X 

11*9X0*£00*012*091*10Z*X00*01Z*0£1*10Z WXWO 19£1 
<0B> 1£0*01Z*0 

11*10Z*0BZ*S11*100*££Z*9S0*0BZ*XX1*000 WXWO £9£1 
<101> 091*OOZ*X 

11 *9X0*B6I *8£1 *9XO*£XO*H_l *ZOO* !OZ*XOO WXWO Z9£l 
<Z£Z> 01Z*0BZ*X 

XI*000*091*861*91Z*9X0*£00*990*111*000 WXWO 19£1 
<* 91 > 69J*ZBt*£ 

£1*£00*990*£X1*X01*B0Z*6Z1*10Z*1BZ*B91 W1WQ C9£l 
<ZBZ> £908*0SZ*B11*0 

00*691*£00*091*61Z*BOZ*SlZ*BZZ*Z£Z*£SZ WXWQ 6B£1 
<B1Z> ££f *000*B 

Ol*£SZ*B91*ZBZ*££1*010*BOI*1Z0*ZSZ*B91 WXWO 0B£1 
<Z1> ZBZ*S11*S 

10*600*861*XX0*9X0*Z£0*600*B00*01Z*B00 WXWO XB£1 
<01> 1ZZ*Z6!* 1 

10*ZSZ*XX1*000*091*000*Z91*B1Z*££1*XZ1 WXWO 9B£1 
<01> I10*lCZ t X 

XI*100*091*£BZ*££1*900*691*861*OBO*9XO WXWQ BS£1 
<£1Z> 9££8*£BZ*££f l fi 

00*691*X0O*OlZ*100*10Z*ZSZ*££1*0SZ*XX1 WiWd 1B£1 
<X61> 100*091*6 

1Z*Z01*111*61Z*lOl* 111*61Z*001* 111 *61Z WXWO £S£1 
<B01> * Z90*111*6 

1Z*190*111*61Z*090*111*900*691*0Z0*80Z WXWQ ZB£1 
<081> 6Z1*!OZ*8 

61*6ZO*9XO*61Z*£BO*111*61Z*ZB0*111*61Z WXWQ lfi£l 
<*>!> £10*111*6 
1Z*Z10*111*900*691*X10*80Z*1Z1*10Z*1SZ WXWQ OB£l 
<W> XX16*£91‘lBZ*B 

11*000*091*BBZ*691*BBZ*££1*£00*691*1BZ WXWO 61£1 
<B61> ££1*0BZ*X 

XI*£00*091*0BZ*B1I*100*691*000*091*ZOZ WXWO Bl£l 
<BZ1> ££Z*Z£0*9 

£Z*££1*Z0Z*691*S£Z*££1*661*691*OOZ*Xll WXWO Xl£l 
<1SZ> 9X0*£00*0 

1Z*OOZ*10Z*OBZ*B11*B£1*ZOZ*OX1*B61*ZZ1 WXWÜ 91£l 
<81> 9X0*£00*9 

XI*10Z*10Z*0BZ*XX1*000*091*X1Z*££1*80Z WXWO Bl£l 
<OX> H£0! *691 *91Z*£ 

£1 *000*691 *11Z*££1 *81Z*££1 * 100*691 * 1SZ WXWO H£1 
<BZ> ££1*£00*6 

91*0BZ*££1*6X0*691*960*61Z*191*X1Z*80Z WXWO £l£l 
<BOZ> • Z0Z*1BZ*0 

£Z*1BZ*B11*81Z*B91*000*091*61Z*Z£1*0X1 WXWQ Zl£l 
<691> OBZ*XXl*0 

0Z*81Z*O£Z*X61*111*Z£0*OXl*0SZ*XX1*00Z WXWQ 11£I 
<1£1> B1Z*0£Z*X 

61 ‘Hl *Z£0*0X1*0BZ*XX1*1BZ*££1 *£90*691 WXWO 01£1 
<XZ> £91B*0SZ*££1*9 

11*691*891*£00*X90*601*£Ö0*X90*601*lZO WXWÜ 6££1 
<X> £00*X90*£ 

XI*B1Z*££1*100*691*BBZ*££1*BZ1*691*1BZ WXWQ B££! 


iiuuiejSojd 







1424 DATA 240,092,165,242,056,229,241,024,105,00 
1,201,029,9041 <1S7> 

1429 DATA 176,080,169,193,133,235,169,202,133,23 
6,032,233 <199> 

1426 DATA 202,169,200,160,000,145,252,169,248,13 

3.239.169 <79> 

1427 DATA 007,133,240,164,249,169,236,145,239,16 

0,000,169 <B2> 

1428 DATA 000,149,290,169,299,069,248,045,021,20 

8,141,021 <24 > 

1429 DATA 208,200,200,177,292,201,001,20B.007,16 

2,002,160,9338 <5B> 

1430 DATA 004,076,237,201,201,002,20B,007,160,00 

4,162,009 <172> 

1431 DATA 076,237,201,160,003,162,001,076,237,20 

1,230,294 <239> 

1432 DATA 230,254,165,252,024,105,009,133,292,23 

0,249,024 <160> 

1433 DATA 038,245,169,245,201,032,240,003,076,24 

4,200,230 <13> 

1434 DATA 246,230,246,230,250,024,038,248,240,00 

3,076,198,8976 <29> 

1435 DATA 200,096,169,059,133,239,169,003,133,24 

0,177,239 <24> 

1436 DATA 134,241,024,101,241,149,239,201,010,17 

6,003,076 <89> 

1437 DATA 016,202,096,233,010,149,239,136,162,00 

1,076,237 <227> 

1438 DATA 201,152,201,003,176,176,238,069,003,01 

6,171,032 <67> 

1439 DATA 084,192,169,128,141,026,208,141,025,20 

8,169,021,7911 <116> 

1440 DATA 141,024,208,160,008,192,024,105,215,15 

3,247,007 <5> 

1441 DATA 136,208,246,160,015,189,068,202,153,00 

0,208,136 <19> 

1442 DATA 016,247,076,084,202,046,100,096,100,12 

6,100,160 <23> 

1443 DATA 100,194,100,234,100,006,100,036,100,16 

9,192,141 <1B7> 

1444 DATA 016,208,162,299,142,023,208,142,029,20 

8,232,142,7753 <155> 

1445 DATA 028,208,202,142,021,208,160,011,185,14 

2,202,193 <175> 

1446 DATA 006,007,136,016,247,160,015,189,217,20 

2,153,084 <25> 

1447 DATA 007,136,016,247,160,038,185,194,202,15 

3,192,007 <95> 

1448 DATA 136,016,247,032,043,192,096,016,018,00 

5,019,019 <39> 

1449 DATA 032,002,021,020,020,015,014,040,003,04 

1,032,049,9715 <111> 

1450 DATA 097,096,054,032,026,021,008,005,009,01 

8,032,021 <222> 

1451 DATA 018,023,001,014,009,032,038,032,020,00 

8,015,013 <30> 

1452 DATA 001,019,032,011,005,021,003,008,005,01 

2,000,042 <40> 

1453 DAtA 003,026,170,129,014,255,000,011,000,12 

9,007,112 <2B> 

1454 DATA 023,006,000,129,014,032,003,099,160,03 

3,010,015,2057 <177> 

1459 DATA 025,019,020,009,003,011,032,016,015,01 

8 020 032 <158> 

1456 DATA 009,009,169,212,133,238,160,000,177,23 

5,133,237 <35> 

1457 DATA 160,004,169,000,145,237,460,001,177,23 

5,136,149 <9> 

1458 DATA 237,160,002,177,235,136,145,237,160,00 

3,177,235 . <157> 

1459 DATA 200,200,149,237,136,177,235,200,200,14 

5,237,136,7653 <21S> 

1460 DATA 177,235,136,145,237,096,169,084,141,17 

3,007,169 <238> 

1461 DATA 019,141,024,212,133,243,169,105,133,25 

4,169,006 <94> 

1462 DATA 133,255,162,032,032,203,203,032,203,20 

3,162,045 <259> 

1463 DATA 032,203,203,162,160,032,203,203,032,20 

3.203.169 <154> 

1464 DATA 185,133,254,169,218,133,255,162,001,03 

2,203,203,8791 <168> 

1465 DATA 169,215,141,248,007,169,172,141,000,20 

8,169,195 <168> 

1466 DATA 141,001,208,169,000,141,016,208,169,00 

1,141,021 <69> 


Programme 


1467 DATA 208,160,000,162,000,202,208,253,136,20 

9,250,206 <96 > 

1468 DATA 000,208,173,000,208,206,001,208,173,00 

1,208,240 <94> 

1469 DATA 023,041,015,208,003,032,171,203,032,11 

0,193,160,7860 <B3> 

1470 DATA 010,162,000,202,208,253,136,208,250,07 

~6,i18,203 <BB> 

1471 DATA 169,000,141,004,212,032,295,204,032,04 

3 192 104 <1487 

1472 DATA 104,076,005,192,198,243,165,243,201,25 

5,208,004 <240> 

1473 DATA 230,243,165,243,141,024,212,169,197,13 

3.235.169 <62> 

1474 DATA 203,133,236,076,233,202,000,168,097,08 

5,016,033,8751 <101> 

1475 DATA 160,000,138,145,254,200,192,006,208,24 

8*165,254 <39> 

1476 DATA 024,105,040,133,254,165,255,105,000,13 

3,255,096 <232> 

1477 DATA 169,038,133,254,169,208,133,255,160,00 

8.177.254 <244> 

1478 DATA 024,105,001,145,254,136,208,246,096,00 

0,103,017 <19B> 

1479 DATA 007,217,033,000,237,021,007,217,033,00 

0,020,026,7646 <128> 

1480 DATA 007,217,033,000,207,034,007,217,033,00 

0,103,017 <B6> 

1481 DATA 007,217,033,000,208,013,007,217,033,00 

0,010,013 <226> 

1482 DATA 007,217,033,000,103,017,007,217,033,16 

9,016,133 <217> 

1483 DATA 235,169,204,133,236,032,233,202,032,16 

4.204.169 <l55l> 

1484 DATA 022,133,235,169,204,133,236,032,233,20 

2,032,164,6393 <1B9> 

1485 DATA 204,169,028,133,235,169,204,133,236,03 

2,233,202 <221> 

1486 DATA 032,164,204,169,034,133,235,169,204,13 

3,236,032 <221 > 

1487 DATA 233,202,032,164,204,169,000,141,004,21 

2,096,169 <237> 

1488 DATA 248,133,235,169,203,133,236,032,233,20 

2,032,164 <139> 

1489 DATA 204,169,254,133,235,169,203,133,236,03 

2,233,202, $572 <109> 

1490 DATA 032,164,204,169,004,133,235,169,204,13 

3,236,032 <16B> 

1491 DATA 233,202,032,164,204,169,010,133,235,16 

9,204,133 <127> 

1492 DATA 236,032,233,202,032,164,204,169,000,14 

1,004,212 <193> 

1493 DATA 096,160,000,162,000,202,208,253,136,20 

8,250,096 <212> 

1494 DAtA 169,207,133,254,169,218,133,255,160,11 

9,162,005,8987 <220> 

1495 DATA 032,230,204,165,254,024,105,120,133,25 

4.165.255 <217> 

1496 DATA 105,000,133,255,160,119,162,001,032,23 

0,204,165 <203> 

1497-DATA 254,024,105,120,133,254,165,255; 105,00 
0,133,255 <169> 

1498 DATA .160,040,162,014,076,230,204,138,145,25 

4,136,208 <11B> 

1499 DATA 250,096,169,038,133,254,169,208,133,25 

>5,160,OOB,8950 <173> 

1500 DATA 169,002,145,254,136,208,249,096,169,03 

9.133.252 <214> 

1501 DATA 169,205,133,253,169,038,133,254,169,03 

8,133,246 <90> 

1502 DATA 169,005,024,105,212,133,247,169,005,13 

3,255,160 <226> 

1503 DATA 010,177,252,145,254,169,001,145,246,13 

6,208,245 <106> 

1504 DATA 096,057,058,059,010,032,032,020,061,01 

0,062,160,B0S4 <238> 

1505 DATA 000,162,010,173,004,220,041,001,024,10 

5,004,133 <112> 

1506 DATA 255,105,212,133,253,173,004,220,133,25 

4.133.252 <137> 

1507 DATA 169,060,145,254,169,015,145,252,202,20 

8,224,096 <19> 

1508 DATA,,,,..TM*muiftf,4943 <222> 

2000 REM-ENDE - <4> 
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Weißt Du wieviel Sfternlein stehen? 


Astronomie 


★ 


★ 


★ 


★ 


★ 


★ 


Dieses tolle Programm gibt Ihnen jederzeit 
die aktuellen Planetendaten ^ 

★ 


bekannt! 


Das Programm ist menügesteu¬ 
ert. Der Rechner verwaltet zwei 
Uhrzeiten parallel! Zum einen ist 
es die MEZ, per Echtzeituhr, zum 
anderen eine Festzeit, welche der 
Computer bei seinen Berechnun¬ 
gen Benutzt. Es empfiehlt sich 
zum Programmstart die Echzei- 
tuhr mit der aktuellen Zeit zu 
stellen. Vergeht einige Zeit beim 
Beobachten der Planeten, so kann 
mit Taste (4) die Computerfest¬ 
zeit mit der Echtzeituhr einfach 
nachgestellt werden. 

Bei der Sommerzeit (MESZ) muß 
eine Stunde abgezogen werden, 
was bei der Eingabe unbedingt zu 
berücksichtigen ist, Beachten Sie 
weiterhin bei der Wahl eines aus¬ 
ländischen Standortes die Uhr¬ 
zeit. Sie muß immer an die MEZ 
angepaßt werden. 

Erläuterungen zu den Planeten¬ 
daten: 

Position: geographische Lage des 
Beobach t u ngsortes 


Rektaszension: galaktische Län¬ 
ge, entspricht der geographischen 
Länge 

Deklination: galaktische Breite, 
entspricht der geographischen 
Breite 

Kulmination: Zeit der höchsten 
Stellung des Planeten im Süden 
Stundenwinkel: die Zeit, die seit 
der letzten Kulmination vergan¬ 
gen ist 

Azimut: entspricht der Him¬ 
melsrichtung in welcher der Pla¬ 
net zu sehen ist. Es wird von Sü¬ 
den nach Westen (Positiv) bzw. 
nach Osten (Negativ) gezahlt. 
Erhebung^ winke!; der Winkel 
zwischen Horizont und Planet 
Sternbild: gibt das Sternbild an, 
in dem sich der Planet befindet 
Stern Zeichen: es weicht wegen 
der Präzession vom Sternbild ab 
Entfernung: Distanz zwischen 
Erde und Planet 

scheinbare Größe: relative Aus¬ 
dehnung des Planeten, in Bogen¬ 
maß angegeben 


C-64 LISTING + CHECKSUMMEN <C Vl.O) 

100 REM" i SPACE y ***************************** 

110 REM" i SPACE J*i SPACE27 

120 REM» i SPACE y » i SPACE2 SS SPACE SO SHIFTSPACE S 
N SHIFTSPACE SN SHIFTSPACE S£ SHIFTSPACE SH SH1F 
TSPACE SS SHIFTSPACE SY S HIFTSPACE SS SHIFTSPACE 
ST SHIFTSPACE SE SHIFTSPACE SH SPACE2 y* 

130 REM» l SPACE y+C SPACE27 y* 

140 REM» i SPACE y»i SPACE SOPPVRIGHTGt SPdCO 19B6tS 
PACE yBYiSPACE SK SA SB SO SS SO SPACE y » 

150 REM» i SPACE y*i SPACE27 y* 

160 REM» i SPACE y ♦»»»»♦♦»♦«»»»«»»»»»»»»»»»»»»» 

170 REM» I SPACE y *C SPACE27 y 

180 REM" I SPACE y*K. SPACE S*>ARSTEN C SPACE SP>OBUSCH 
i SPACE SSy OFT WARE i SPACE2 y » 

190 REM» i SHIFTSPACE y »C S PACES SOUNINKHOFSTR. iSPA 

QEy io tspACE&y* 

200 REM" iSPACEy*C SPACE4 SPI-4600 i SPACE SP> ÜRTMUN 
DC SP4CQ 41 CSP4C£5>* 

210 REM" i SPACE } » i SPACE4 ST>EL.i(0231 > /455B26tSPA 
CESy » 

220 REM »t SPACE > *i S PACE27 y » 

230 REM" i SPACE y fr****##*******»*»*#****#*#**# 

240 REM" iSPACEy »»» 

250 REM“ {. SPACE y »* 

260 REM" i SPACE y* 

270 REM" 

280 S=5324B:DIM M(9,IO),V*(9) V H*(12),I(1l),BN(20 
),BI(20) f LN(20),LI(20) 

290 PI = nsP2=PI»2sRA=PI/180iBT=51.5sGE=7.6sUF=OsD 
F=Os GF—Os POKE S+21,0 

300 U*—"22.30"* TI♦="223000"s G*="21.06.1986” 

310 UL$=" <.CT40y " 

320 ZZ*="i HOHE D0HH16 RIGHT2S y w 


<59> 

<73> 


<7> 

<93> 

<233> 
<113> 
<119> 
<133> 

< 116> 

<24B> 

<247> 

< 176> 
<1B3> 
<1B9> 
<153> 

< 167> 
<224 > 
<226> 

<15> 

<41 > 

<36> 

< 146> 

< 147> 


36 
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330 DEF FN ASN(X)=ATN(X/SQR(1-X*X) ) 

340 DEF FN ACS(X)=-ATN(X/SQR(1-X*X))+PI/2 
350 REM 

360 REM »{ SPACE SWJAUPTMENUE 
370 REM 

380 POKE 2040,11*POKE 204i f llsP0KE S+39 r 6*P0KE S 
+40,6sP0KE S+16,0 

390 POKE 190,OsPOKE S+24,23*P0KE S+32,0*P0KE 8+3 
3.0s PRINT" { CLEAR DGREY} »CHR»(0) } 

400 PRINT 11 { SPACE2 CA S*34 CS>" 

410 PRINT n { SPACE2 SPACE PURPLE SS} ONNENSYSTEM 
E SPACE3 YELLOW USCJ) IVBbi SMIFTSPACEl BYC SPACE SK 
SA SB SO SSSO DGREY SPACE S=>" 

420 PRINT "t SPACE2 QZ S»34 CXV 

430 PRINTMID»(ZZ»,2.13)SPC(39)" t BLUE J .“SPC<&7)", 
"SPC < 17) ". "SPC (11)". "SPC (36) - ■ ■■ I 

440 PRINTSPC(40) n { YELLOW *{ BLUE * n SPC(40) ", "SPC(3 
5)"-" 

450 IF 00=0 THEN GOSUB 2990*00=1 
460 BR=BT/100 *PI 

470 PRINT" { HOME GREEN D0NN4 SPACE4 y (13 { SPACE2 SN 
1ERTE1 SP4CO FUERC SP4CO EINENC SP4CC SP3LANETEN" 
400 PRINT" {RED SPACE4J "LEFT»(UL»,30) 

490 PRINT" <. GREEN SPACE4 J (23 { SPACE2 SWERtEL SPACE 
3FUER( SP4Cf >ALLE( SP4CC SPILANETEN" 

500 PRINT"(g£P SPACE4 1 "LEFT»<UL»,29) 

510 PRINT" { GREEN SPACE4 y (33 { SPACE2 SÜJHRZEITCSP4 
CO WECHSELN( SPACE2 > (43 { SPACE SSJYNC." 

520 PRINT" {RED SPACE4y "LEFT»(UL»-21)" { SPACE2 > "LE 
FT»(UL»,9) 

530 PRINT" { GREEN SPACE4y t53 { SPACE2 SP>ATUM( SP4CC 
>WECHSELN" 

540 PRINT" {RED SPACE4y "LEFT»«JL»,19) 

550 PRINT" { GREEN SPACE43 (63( SP4CC2 3BEOGRAPHISCHE 
{ SPACE SL} AGE ( SPACE} WECHSELN"s WA=0 
560 PRINT" {RED SPACE4 1"LEFT»UJL»,32) 

570 PRINT" { GREEN SP4CC43 GEOGRAPH, { SPACE SOAGE*C 
SPACE L1G.BLUE Sfi>R: "INT(10+BT+.5>/IO" (SOAi "INT 
(10+GE+.5)/IO 

580 PRINT" { BONN GREEN SPACE4 ££>HRZEITi { SPACE LL 
G.BLUE 7 "U» n {GREEN SPACES Sft SE §£>•" 

590 PRINT" { GREEN SPACE4 SP3ATUT \{ SPACE2y %{ SPACE L 
1G,BLUE >"G* 

600 IF UF=0 THEN POKE 1347,62*POKE 55619,14 
610 IF DF=0 THEN POKE 1427,62rPOKE 55699,14 
620 IF BF=0 THEN POKE 1511,42iPOKE 557B3,14 
630 R=100iA=liX“—RxPOKE S+21,3tPOKE 198,0 
640 Y=SQR(ABS(1OOOO-X+X))* POKES,X+141sPOKES+1,V/ 
5*A+224 

650 POKE S+2,—X/2+141*POKE S+3,Y/10*-A+224i X-=X+A 
«IF X«R THEN A=-A«R=-R 

660 PRINTZZ»LEFT»(TI»,2>"* H MID»(TI»,3,2)"«"RIGHT 
»(TI»,2) 

670 SET T»*IF T»«="" THEN 640 
680 WA=VAL(T»> 

690 POkE S+21,OsON WA 60T0 2260,720,840,710,940, 
2350 

700 POKE 8+21,3iGOTO 640 

710 U»=L t EFT»(TI», 2) +"• "+MID»(TI»,3,2) «PRINTLEFT» 
(ZZ»,30)U»*POKE S+21,3*G0T0 670 

720 BR=BT/1BO*PIs GOSUB 1640eGOSUB 1070*GOSUB 113 
O 

730 REM 

740 REM"* ( SP4CO ALLE ( SP4CC SP>LANETEN/EIN( SP4CC 
£Z> EITPUNKT { SPACE} * 

750 REM 

760 FOR N=1 TO 9sGGSUB 1180 :PRINT"" 16 OSUB 
1380 

770 POKE 19B,0*PRINT " { BONN SNy EITER* { SPACE y BEL, 
{ SPACE ST3ASTET SP4CO DRUECKEN, " 

780 GET T»*IF T»="" THEN 780 

790 IF WA=2 THEN PRINT "C UP NN1TE SByiTTE{ SPACE> ' 
WARTEN, { SPACElSy "sNEXT N 
800 GOTO 390 
BIO REM 

820 REH" { SPACE SUTHRZEITEINGABE 
830 REM 

840 UF=1SPRINT" { CLEAR LIG.BLUE SZ>EIT( SP4CC > < {SN 
SE SZyy C SP4CC >IN( SP4CC >DER( SP4CE SF>ORM* { SPACEy 
06.32<SP4CE>EINGEBEN(SP4CE>!(PEPV* 

850 PRINTUL» 

860 POKE 198,0*U»=""* INPUT " { NONE DONN5 YELLOW " 
;U* 

870 PRINT" { CLEAR y " 

880 IF LEN (U») 05 THEN 840 

890 ZT=VAL(LEFT»(U»,2))+VAL(RIGHT»(U»,2>)/60-1 


<115> 

<63 > 
<23B> 
<13> 
< 2 > 

< 6 > 

<243> 
<32 > 


<185> 

<125> 

<209> 

<52> 

<252> 

< 222 > 

<165> 

<163> 

<117> 
<56> 

<69> 

<52 > 

<192> 

<B2> 

< 12 > 

< 20 > 


<184> 

<107> 

<ieo> 

<13> 

<138> 

<190> 

<90> 

<221 > 

<38> 

<14> 

<247> 

<177> 

<194> 

<92> 

< 11 > 

< 112 > 

<107> 

<166> 

<127> 

< 50 > 

<97> 

<166> 

< 110 > 

<125> 

<188> 

<72> 

<2O0> 


<209> 
< 12 > 

<55> 

<135> 

<1B> 

< 196> 


900 TI»=LEFT»(U»,2)+RIBHT»(U»,2)+"00”sG0T0 390 <149> 

910 REM <32> 

920 REM" L SPACE SE} INGABE( SPACE y DES i SPACE gPlATUM 
S <54> 

930 REM <52> 

940 DF=1*PRINT" {QLEAR LIG.BLUE S7>AG,(Stf)ONAT,<£ 

J3AHR( SP4Cf > IN( SP4CE3 DER( SP4CE SF30RM« ( SP4CE3 31. 

03-1986(WEP>" <253> 

950 PRINTLEFT»(UL»,3B) <96> 

960 PRINT" I f.Jg.BLI/O EINBEBEN! < RCP> " <14> 

970 PRINTLEFT»(UL»,9) <131> 

980 POKE 19B,OiB»«""* INPUT "{ NONE BONNS YELLOW " 

;B» <225> 

990 PRINT" { CLEAR y " <255> 

lOOO IF LEN<6»)010 THEN 940 <93> 

1010 T=VAL(LEFT»(G*,2)) <1B0> 

1020 M=VAL(MID»(B»,4,2)) <181> 

1030 J=VAL(RIGHT»(G»,4))«GOTO 390 <5> 

1040 REM <163> 

1050 REM" { SPACE S£>RliEHLINGSPUNKTBEREOWUNB <162> 

1060 REM <1B3> 

1070 FR=ZT/24*36Ö.9856644+Kl*1440.02509 <62> 

1080 FR=FR+INT(KO) *.0307572+99.20189733+360 < 14B> 

1090 FR=FR—360*INT(FR/360)* RETURN <170> 

HOO REM <223> 

lllO REM" { SPACE SB} ERECHNUNG {. SPACE y DER i SPACE S£> 
RDEKOORDINATEN <64> 

1120 REM <243> 

1130 P*3* EN=(23-441—,47/3600*TA/365)/lBO*PI <229> 

1140 60SUB 1740* XE=X* YE-Y* ZE-Z* RETURN <4B> 

1150 REM <17> 

1160 REM" { SPACE SB>ERECHNUNGC SP4CE >DER( SP4CC g£> 
LANETENKODRDINATEN <6> 

1170 REM <37> 

1180 P=N*X-O*Y=0* Z=0 <37> 

1190 IF P<>3 THEN GOSUB 1740 <5> 

1200 DX»X-XE*DY«Y-YE*DZ=Z-ZE <44> 

1210 YN=DY*COS(EN)-DZ*SIN(EN> <52> 

1220 Z«HDY*SIN(EN)+DZ*COS(EN> <42> 

1230 AB-SQR(DX"DX+YN*YN+ZN*ZN) <29> 

1240 PfrMTN(YN/DX) <213> 

1250 IF DX<0 THEN PH-PI+PH <148> 

1260 IF DXM> AND YN<0 THEN PH=2*PI+PH <26> 

1270 TH-FN ASN(ZN/AB) <106> 

12B0 SW=8E+FR-PH/P1*180+360 <20B> 

1290 SW=SW-360*INT(SW/360) <152> 

1300 SW=SW/I80*PI <152> 

1310 HO=FN ASN(5IN<BR)*SIN(TH)+COS(BR)*COS(TH)*C 
OS(SW)) <190> 

1320 AZ-FN ACS((SIN(TH)—SIN(BR)*8IN(HO))/(COB(BR 
)«COS(HO))) <117> 

1330 IF SIN(SW) >=0 THEN AZ»2*PI-AZ <225> 

1340 RETURN <207> 

1350 REM <21B> 

1360 REM" { SPACE S4>US6ABE( SPACE >DER( SPACE £M>ERT 
E <250> 

1370 REM <238> 

1380 PRINT" { CLEAR LIG.BLUE SPACE4 I "V»(N)TAB(13)" 
AMt SPXCO "B»| < 154> 

1390 PRINT" C SP4CC >UMC SP4C£ >"U» H « { YELLOW " <19> 

1400 PRINTUL» <52> 

1410 PRINT" { ORANGE SpiOSITION« { SPACE Sg>R«"BT"(£ 

E£T> , (SOAi "GE* PRINT <44> 

1420 B»=" {RED SfflEKTASZENSION( SP4CO IHt SPACE §S> 

TD.C SPACE SN JIN* {GREEN} " <92> 

1430 AN=PH*12*GOSUB 2040 <91> 

1440 PRINT" {RED SP>EKLINATI0N( SP4CE >* { GREEW "t (I 
NT(TH/PI*1800+,5))/10 <252> 

1450 B»="( REP SDy EKLINATIQN( SP4CC3> INI SP4CC SG>R 
ADi SPACE SW IN* { GREEW " ' <174> 

1460 AN=TH*1B0»GOSUB 2040 <246> 

1470 B»="<g£P SK>ULMINATION( SP4CC3 >IN( SP^CC SS} T 
D. i S PACE SW IN« { GREEW " <192> 

1480 AN=(P2—SW+P2/24*(ZT+1))*12*IF AN>24*PI THEN 
AN=AN-24*PI <147 > 

1490 GOSUB 2040sB»="<flCP SS1TUNDENWINKEL { SPACE} 1 
N( S PACE SS>TD- i S PACE SW IN* {GREEW " <129> 

1500 AN=SW*12* GOSUB 2040 <248> 

1510 B»=»( PCP S4>ZIMUT { SPACEQy 1N{ SPACE SG>RAD(SP 
ACE SNy IN* { GREEW " <15> 

1520 AN=(AZ-PI)*1BO*GOSUB 2040 <237> 

1530 PRINT" {RED! (VON i SPACE SS>UEDEN( SP4CC >GERECH 
NET)" <75> 

1540 B»="(SEIRHEBUN6SWINKEL {SPACEIO} * {GREEW " <B0> 

1550 AN=H0*1B0* GOSUB 2040*GOSUB 2180 <184> 


1560 PRINT»(PCP>IM( SP4CC gSTTERNBILD*( SP4C£ GREE 
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Programme 


«>";C* 

1565 IF H0<0 THEN PRINT“ { HOHE ! "MID*(ZZ*.5.40) ”CR 
USON LIG.RED SPINSICHTBAR" 

1570 PRINT” tREDJ IMCSPACE SZ>EICHENI S/»4CC2 >i C SPAC 
£ GREEN ! "sE* 

1500 PRINT” tREß SfINTFERNUNGI SP4CO INI SP4CO KMCS 
PACE6!tCGREENI "|(INT(AB*1496+.5> >/10;"ISBJILL." 
1590 PRINT»IRCPIBCHEINBAREI SP4CC SOROESSEI SP4CC 
4>»< GRCW i 

1600 PRINT INT <M(P f 10)/149600/AB/PI*6400000+.5>/ 
10;"ISSJEK. tDONN !"9 RETURN 
1610 REM 

1620 REM ”C SPACE SKIALENDER 
1630 REM 

1640 PRINT"t CIC4R >”i21=721554 
1650 K=365*J+T+31*M-46 

1660 IF M>2 THEN K=K—INT(.4*M+2.3)+INT(J/4) 

1670 IF M<*2 THEN K=K+INT((J-l>/4> 

1600 TA=K—21--5+ZT/24 
1690 KO*(K—693960)/1461 
1700 K1=K0-INT(KO)«RETURN 
1710 REM 

1720 REM“<SP4C£ SßlNOMALIEBERECHNUNGEN,USW 
1730 REM 

1740 TB=M(P,1)*RA 

1750 PE=(M(P,2>+1E-5*TA*M(P,3))#RA 
1760 NI=M(P,4>*RA 
1770 EX=M(P,5) ' 

1700 IK=M(P,6)*RA 
1790 A=M(P,7) 

1000 KN—(M(P,0)+1E-5*TA#M(P f 9)>*RA 
1010 M0=TA*TB+WI 

1020 IF M0>P2 THEN M0=M0-P2*INT(M0/P2> 

1030 E-M0 

1040 F0R 1*1 T0 3 

1050 E—E+ (M0-(E—EX#SIN(E))>/(l-EX«C0S(E)) 

1060 NEXT I 

1070 V=2*ATN(SQR((1+EX)/(1-EX>>*TAN(.5«E>> 

1000 EL=V+PE+KN+P2 
1090 EL=EL-P2*INT(EL/P2> 

1900 RV=A*(1—EX*C0S(E)) 

1910 CV*C0S(V+PE) 

1920 SV^BIN(V+PEI 
1930 SK~SIN(KN> 

1940 CK=C0S(KN) 

1950 CI~COS(IK) 

1960 SI»SIN(IK) 

1970 X«RV»(CK*CV-SK«9V«CI) 

1900 Y*RV*(SK*CV+CK*SV*CI) 

1990 Z=RV*SV#SI 
2000 RETURN 
2010 REM 

2020 REM"I S PACE SUI MRECHNUNGENC SPACE ! IN C SPACE Sß 

30GENMASS 

2030 REM 

2040 X1*ABS(AN)/PI« X2=INT(XI) 

2050 X3=60*(Xl-X2)«X4«INT(X3+.5) 


<154> 

<251 > 

<10O> 

<127> 

<126> 

<155> 

<223> 

< 101 > 

<243> 

<156> 

<225> 

<244> 

<29> 

<238> 

<67> 

<195> 

<67> 

<107> 

<07> 

<19> 

<143> 

<0O> 

<36> 

<106> 

<145> 

<149> 

<GB> 

<244> 

<125> 

< 130> 
<243> 
<95> 
<195> 
<06 > 
<155> 
<116> 
<115> 
<145> 
< 120 > 
< 110 > 
<91 > 
<121 > 
<9> 
<160> 
<166> 
<101> 
< 112 > 

< 153> 
<132> 

< 16> 
< 0 > 


2290 BET T*:IF T*="» OR T*<"1" DR T*>"9» THEN 22 
90 

2300 N=VAL(T*)sGOSUB 1640sG05UB 1070sGDSUB 1130s 
GDSUB 1100 

2310 GDSUB 1300:GOTO 770 
2320 REM 

2330 REM» I SPACE S4>ENDERUNG {.SPACE! DER ISP4CEIGE0G 
RAPHISCHENC SPACE SLI AGE 
2340 REM 

2350 POKE 190-QbPRINT» C CLEAR L1G.BLUE I" SPC(11)»G 
EQGRAPH15CHE C SPACE SLIPGECREDI » 

2360 PRINTSPC(11)LEFT*(UL*,10> 

2370 PRINT "CGREEN VORN4 SPACE6I C11 C SPACE IDI REKTE 
iSPACE SEI INGABECREPI» 

2300 PRINTSPC(6)LEFT*(UL*,19) 

2390 PRINTSPC (6) » C GREEN DONNI121CSPACJL SßlUSWAHL 
: <. SPACE SPIEUTSCHLAND/ CS D2 SR RED!” 

2400 PRINTSPC(6)LEFT*(UL*,20) 

2410 PRINTSPC(6)» { GREEN DONNI CZ1C SPACE S4IUSWAHL 
8 i SPACE SIINTERNATIONAL CREDI » 

2420 PRINTSPC(6)LEFT*(UL*,26) 

2430 PRINTSPC(6) "C L1G.RED DONN IC41C SPACE SWIAUPT 
MENUEIfi£ß>" 

2440 PRINTSPC(6)LEFT*CUL* f 14) ' 

2450 GET T*:IF T**»" OR T*<»1" OR T*>"4” THEN 24 
50 

2460 IF T*="4» THEN 390 

2470 ON VAL(T*> GOSUB 2490,2640,2000 

2400 GOTO 390 

2490 PRINT" C CLEAR L1G.BLUE SPACES SEI INGABE C SPAC 
EI DER C SPACE! GEOGRAPHISCHEN C SPACE SL1MBECRED1 " 
2500 PRINTSPC(5>LEFT*(UL*,31) 

2510 PRINT" C LIGmBLUE D0NN2 S4ICHTUNB« CRED1 » 

2520 PRINTLEFT*(UL*,0) 

2530 PRINT» CGREEMIQESTi-lCHECSPACE SLI AENGEN C SPAC 
£>S0WIEISP4C£>N0ERDLICHECSP4C£ SBIREI—" ; 

2540 PRINT"TENCSP4C£>IMMERISP4C£>P0SITIV« C SPACE ! 
Z. ISP> . xC SPACEI S(2mhC SPACE IWERC SPACE! IO.2 C SPACE ! 

ii 

2550 PRINT"WESTLICHE C SPACE SO AENGEN < SPACE ! SÜWIE 
I SP4CC JSUEDLICHEI S/MCE2 SBIREI-"; 

2560 PRINT "TEN I SP4CO IMMERI SP4CO NEGATIV« C SPACE ! 
Z. CSBI ■ i -91.7I SP4CO ODER-33, 2C S PACE! » 

2570 PRINT*GF*1 

2500 INPUT 11 C YELLON SOAENGE* C G RE EN ! »i GE*« BE=VAL < 
BE*) 

2590 IF GE**"" OR ABS(GE)>180 THEN PRINT» C UP2I »i 
GOTO 2500 
2600 PRINT 

2610 INPUT" C YELLON SBIREITE» C GREEN I »* BT*iBT*VAL( 
BT*> 

2620 IF BT**"» OR ABS(BT)>1G0 THEN PRINT" CUP2I n t 
GOTO 2610 
2630 RETURN 

2640 PRINT» C CLEAR 1 »SPC(14)» C LIG.BLUE ! WELCHE C SPAC 
E S LI MdE*? C RED I» 

2650 PRTNTSPC(14)LEFT*(UL*,12) 


<71> 

< 120 > 
<9> 
<160> 

<29> 

<1B0> 

<196> 

< 20 > 

<31 > 
<227> 

< 200 > 

<246> 

<135> 

<242> 

<204> 

<227> 

<59> 

<41 > 

<167> 

< 19> 

<33> 

<14> 

<34> 

< 143> 

< 02 > 


<203> 

< 100 > 

<121 > 
<174> 

<236> 

<27> 

<203> 

<207> 

<40> 

< 222 > 

<107> 

<245> 


2060 IF X2O0 THEN X2=SGN(AN>*X2 <253> 

2070 IF X2=0 AND X400 THEN X4=SGN(AN)*X4 <112> 

20B0 P1*X2«GOSUB 2140 <226> 

2090 S*=P**P1*X4:GOSUB 2140 <197> 

2100 R*«P*sPRINT B*|TAB(27);S*pTAB(32);R*tRETURN <17B> 
2110 REM <213> 

2120 REM» C SPACE S4>USGABEFORMATIERUNB <49> 

2130 REM <233> 

2140 P*=STR*(PI>:P*=LEFT*("C SPACE3 I ",4-LEN(P*>)+ 

P*:RETURN <49> 

2150 REM <253> 

2160 REM" C SPACE SSITERNBILDISP4CEI&ISP4CE ST! 1ER 
KREISZEICHEN <130> 

2170 REM <17> 

2100 PH=PH/PI*10O <70> 

2190,FOR L=0 TO 11«KT=I(L) k <154> 

2200 IF PH<KT THEN 2220 <197> 

2210 NEXT L <196> 

2220 C*=H*(L>«KT=INT(PH/30)+1:E*=H*(KT)«RETURN <179> 
2230 REM <77> 

2240 REM" C SPACE SPJLANETENWAHL <76> 

2250 REM <97> 

2260 PRINT" C CLEAR I "SPC(12)" CLIG^BUJE! WELCHEN CSPA 
CE SP! LANETEN? CREDI "SPC(23)LEFT*(UL*,17)" C D0NN2 1 
" <126> 

2270 FOR N=1 TO 9:PRINTSPC<14)" CGREENI C"RIGHT*(S 
TR* <N),1)"I€SP4C£1>"V*(N) »CREDI» <113> 

2200 PRINTSPC(14)LEFT*(UL*,LEN(V*(N))+6)sNEXT N: 

POKE 190,0 <202> 


2660 PRINT" C DONN GREEN ! Cfkl C SPACE £ß> AMBURG "SPC (9 
) "CBH SP4CC SBIREHENC POIWI » <B3> 

2670 PRINT" EC J C SPACE SB>ERLIN"SPC (IO) " CP3 C SPACE 
SN !ANNQVER C DONN !" <109> 

2600 PRINT" ZE1C SPACE SB! RAUNSCHWEIBI SP4CE4 LIQ.R 
EDI IF3 C SPACE SN! AGDEBURGI PPWW1 " <195> 

2690 PRINT" C GREENI CG3 C SPACE ££>0RTMUND"SPC(8) "<4 
IG.RED! CHIC SPACE SL1EIPZ1BC D0NN I" <192> 

2700 PRINT » C GREENI C13 C SPACE SD! UESSELDORF C SPACES 
LIG.RED! CJ1C SPACE SD! RESDEN C DONN! <66> 

2710 PRINT" C GREENI CK3 C SPACE ££>0ELN"SPC<11)"ELJt 
SPACE SF>RANKFURT C DONN ! " <172> 

2720 PRINT"IM3 C SPACE SNI ANNHEIM"SPC(0)"CN3 C SPACE 
SNIUERHBERBC DONN I " <199> 

2730 PRINT"CO 1C SPACE SS! AARBRUECKENI SP4CE4> CP3 CS 
PACE SRIEGENSBURG CDONN !" <146> 

2740 PRINT"CQ3I SP4C£ SK>ARLSRUHE"SPC(7)"tR 1C SPAC 
£ SSJTUTTBART CDONN !" <53> 

2750 PRINT"ESI C SPACE S4>UGSBURG»SPC(0) "CT1C SPACE 
SMIUENCHEHC DONN I " <192> 

2760 PRINT» C RVSONI CU3 C SPACEI KE1NEC RVS0FFI "» POKE 
190,0 <36> 

2770 GET T*«IF T*-" M OR T*<»A" OR T*>"U" THEN 27 
70 <252> 

2700 IF T*«"U" THEN RETURN <25> 

2790 BT«BN(ASC(T*)-64>iGE«LN(ABC(T*)-64)iBF-lfRE 
TURN <90> 

2000 PRINT» < Cf.C4R> "SPC(14) u C L1G.BLUEI HELCHEC SPAC 
£ S£>ABE?CR£P>" <11> 


38 
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tips & tricks 


2010 PRINTSPC (14) LEFT# (UL#, 12> <149> 

2820 PRINT 1 * W&HH SR££ r W> CA3 {. SPACE ££>8L0"8PC(12) • 

EB3 {. SPACE SnyqBKm WOHH }* <168> 

2030 PRINT" CC3 {. SPACE SJttOFENHAQEN I SPACEA} tDI CSP4 
G£ SW>AR8CHAU i DOHH } w <49> 

2040 PRINT" CEICfi&CC SP0ND0N"BPC( 10) "CFJ C SP4CE 
SPIRABC POJ/WJ " <H> 

20SO PRINT"C0J<£££££ SP>ARIB"SPC(11) "CHI I SPAC* £ 
ftlOHC BOWO " <7B> 

2860 PRINT"CI Jt SPACE StO ANHATTAN (CSN1,CSY1. )ISPA 
CE}tJlI SPACE SfDAPRIDC DPJW J" <237> 

2870 PRINT"CK]< SP4C£ SA>THEN"8PC(11)"CL3C SP4CF £ 

/)I08ABONCDOWN>" <91B> 

2080 PRINT* CHI < SPACE ST>0KY0"8PC(11)"CNI t SPACE £ 
OQ8C SP4CC SA> NBELEB C DOUM} ■ <13S> 

2090 PRINT"CO3C SP4CC SK>flIRO"BPC<11)"CP3 t SPACE £ 

W3QMG t SPACE SKIONBt POIWI " <1B6> 

2900 PRINT"C03 t SPACE SS>INBAPUR"BPC <B)"CR3 i SPACE 
SÄ> 10C SP4CO DEC SP4CC SJ>ftNEIROC POPN> " <229> 

2910 PRINT"CS3<£££££ SK>AFBTAPT"8PC<B> * ITH S PACE 
SftlELBOURNE <££££> " <90> 

2920 PRINT" «FSPWI CU3 C SPACO KE I Fg C *y SDW »■ POKE 
19B.0 <197> 

2930 BET T*iIF T*-— OR T#<" A* 1 DR T#>“U" THEN 29 
30 <99> 

2940 IF T*-"U" TWN RETURN <1B6> 

2950 BT-BI(A8C(T#>-64)i0E-Ll(A8C(T#)-64>iBF*liRE 
T1ÄN <129> 

2960 REH <42> 

2970 REH** t SPACE S£> INLEBEN t SPACE > DER t SPACE SP3AT 
EN <132> 

29B0 REH <62> 

2990 FOR 1-1 TO 9iREAD V#(I>iNEXT I <255> 

3000 FOR 1-0 TO 12iREAD H#(I>i*EXT I <129> 

3010 FOR 1-0 TO lltREAD I<I)lNEXT I <99> 

3020 FOR K-l TO IOiFOR 1-0 TO BiREAD H(Ul,K)iNE 

XT ItNEXT K <S2> 

3030 FOR 1*1 TO 20iREAD BN(I) V LN(I)iNEXT I <60> 

3040 FOR 1-1 TO 20iREAD BI(I) f LI(I)iNEXT I <186> 

3050 FOR 1*704 TO 766iP0KE I,OtNEXT IiPOKE 704,3 
iPOKE 707,3aRETURN <12B> 

3060 REH <142> 

3070 REH" L SPACE SB>EZEICHNUNQ£NC SPACE> UNDC SPACE 
££)ONBTANTEN <233> 

3000 REH <163> 

3090 DATA "<£ft>ERKUR", M <££>ENUB 1 ,"<££>DNNE",* <££ 

> ARB" , " <££>UPITER" , ” <££> ATURN” , " <££>RANUB" , " <££> 

EPTUN" <203> 

3100 DATA *t£P»LUTO" <105> 


3110 DATA "<££> ISCHE" ,"<££>IODER","C££>TIER","<£ 
£>NILLINBE H , " < SK} REBS" , ■ <£4>0EWE" , " <££>UNBFRAU" ,<7> 


3120 DATA " <££>AA8E M , " €££>KORPION n , ** C££1CHUET2E* 

, " <££>TEINBOCK- , ■ €££> A0SERHANN" , " C££> ISCHE" <5> 

3130 DATA 26,50,09,119,139,174,214,239,265,301,3 
29,351 * <22> 

3140 REM <223> 

3150 REH" <£££££>•<£££££ ££>LANETENDATENf££dC£>* <143> 
3160 REH <243> 

3170 DATA 4.09234,1.60213,.9056,.524032877,.0030 

909369 .. 033455509 <3> 

3100 DATA .Ol 17306716,.00590111,.00 3 9 32 7777,29*0 
3153,54.76455,102.510402 <21B> 

3190 DATA 206.23417,273.72755,339.122155,90.0103 
1,276.29020,113.622,1.01,1.39 <31> 

3200 DATA 4.71,2.39,1.64,2.97,2.7,0.92,5.6,247.7 
122,181.36647,350.015065 <10> 

3210 DATA 274.55739,341.3602,11.380,33.20,202.05 

,339.093,.2056295,.0067849 <140> 

3220 DATA .01672,.093382,.O4B450,.0556320,.04632 

45.. 009.0.2522.7.004 <173> 

3230 DATA 3.39430,0,1.04903,1.30447,2.409572,.77 
29535,1.7720791,17.1407 <239> 

3240 DATA .3070904, .7233302,1,1.523400«,5.2025^1 
,9.554747,19.21814,30.10957 <2B> 

3250 DATA 39.6953,48.03496,76.45477,0,49.36469,1 
00.20147,113.44519,73.85160 <206> 

3260 DATA 131.50571,109.655,3.25,2.47,0,2.11,2.7 
7,2.39,1.37,3.01,-1.3,4.04 <21B> 

3270 DATA 12.2,1390,6.0,143,120,52,44.6,7 <217> 

3200 REH <107> 

3290 REH"<gPAC£l«C SPACE> BEDBRAPHIBCHE« gPACg £^A 
SEN,NAT<£££££>* < 10> 

3300 REH <127> 

3310 DATA 53.6,10,53.2,8.0,52.5,13.4,52.4,9.7,52 
.3,10.5,52.1,11.6,51.5,?.5 <127> 

3320 DATA 51.4,12.4,51.2,6.7,51.1,13.7,50.9,6.9, 

50.1,8.7,49.5,8.5,49.5,11.1 <130> 

3330 DATA 49.3,7,49,12.1,49,0.4,40.0,9.2,40.4,10 
.9,48.2,11.6 <169> 

3340 REH <168> 

3350 REH" < SPACri »C SPACg> BEOORArHIBCIgC SPACE ££>A 
BEN-INT {. SPACE! * <36> 

3360 REH _ <100> 

3370 DATA 59.9,10.7,55.8,37.6,55.7,12.4,32.2,21. 

1,51.6,-.2,50.1,14.4,48.0,2.4 <165> 

3300 DATA 41.0,12.5,40.0,—74,40.4,*-3.0,38.9,23.7 
,38.7,-9.0,33.7,139.7,34,-118.2 <51> 

3390 DATA 30.1,31.3,22.3,114.2,1.3,103.0,-22.8,- 
43.3,-33.9,10. 3,—37.9,145 <193> 

ENDE DES LIBTINBB 


Deutsche Fehlermeldungen 


Abgetippt wird das Programm 
*TEHLER*DATA”. Dann wird 
es mit "RUN” gestartet. Sicher¬ 
heitshalber sollte es vorher abge- 
saved werden. Nach dem Starten 
kann man zwischen Disk oder 
Cassette wählen. Nun wird der 
Name gewählt unter dem das 
Programm abgespeichert werden 
soll. Ist das geschehen, wird das 
Programm zuerst im Speicher ab 
Adresse 49152 erzeugt und dann 
gespeichert. Das Programm 
”F£HLER-DATA IJ ist also nur 
ein sogenanntes Ladeprogramm. 
"FEHLER (49152)” m das fertige 
Programm, Es wird mit ,8,1 bzw. 


,14 geladen, und mit SYS 49152 
gestartet. Dann wird ”NEW” ein¬ 
gegeben. Auf die englischen Mel¬ 
dungen kann man mit POKEL55 
zurückschalten, 

Die Meidungen in den Data- 
Zeilen 440-730 sind natürlich nur 
ein Vorschlag. Sie können belie¬ 
big abgeändert werden. Folgendes 
ist aber dabei zu beachten: Keine 
Meldung darf länger als eine Data- 
Zeile sein. Das letzte Zeichen je¬ 
der Meldung muß zusammen mit 
der ”SHIFT"-Taste emgegeben 
werden, damit der Computer das 
Ende erkennen kann. 


Kommunizieren Sie mit 
Ihrem Computer in Ihrer 
Muttersprache 1 

C-64 LISTINO + CHECKBUMMEN (C VI.O) 


100 REH» »•»• •»***» ****** ****** * **«* ##« * < 211> 

110 REH* FEHLERMELDUNGEN DEUTSCH * <97> 

120 REH* (01983 BY HR-SOFT • <26>, 

130 REH* RONALD HAYER * <155> 

140 REH» A—4062 THEN ING 24/AUSTRIA * <204> 

ISO REM******************************** <5> 

160 FORINT" K. CLEAR YELLOW} "iF>OKE33281 ,6 bP0KE33280. 

6 <103> 


TI/86 


©exmfpwffö mlü 
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tips & tricks 


170 PRINT" < V0UN2 RVSOM SPACE lCt SPACE PKS0FF 1ASSE 
TTEt SP4C£ >0DERt SP4C£ RVSON SPACE yDi SPACE RVSOFFy 
ISKETTEt SF4C£> ?t SP4C£> "i <20&> 

1B0 P0KE190,0iWAIT198,liBETA*iIFA*< N C"0RA*>"D”TH 
ENISO <109> 

190 9»CA9CCA*)—67)»7+1iPRINT" E RVSON £££££>"A* H C£ 

£4££>" <56> 

200 AD-492B7IPO-49225 <60> 

210 RErtH«»««»«!»««*««***«*»# <69> 

220 REN* MASCHINENPROGRAMM * <36> 

230 REN******************************** <B3> 

240 F0RI-49152T049226iREADAiP0KE1 v AkNEXT <0> 

290 DATA160,0,162,140,132,294,134,299,177,294,14 
5,294,200,200,249,230,255 <0> 

260 DATA169 V 299 V 201 V 192,144,241,162,0,109,94,192 
,197,109,163,232,224,21,144 <231> 

270 DATA249,162,0,109,79,192,197,40,163,232,224, 

60, 144,249,169,94,133,1,96 <191> 

200 DATA13,70,69,72,76,69,02,0,32,73,70,32,0,13, 
10,66,69,02,69,73,04 <241> 

300 REM* SCHREIBEN AUF DISK/CASS * <13> 

320 POKE19,1 1 INPl/T" t DOHNA ! NAHE t SPACE > DES t SPACE yP 
RÖBRAMMS<SPAC£>"jN*sPOKE19,OlPRINTiPRINT«PRINT <194> 
330 IFB*8THENN*-"«0i "+N* <103> 

340 F0RI-1T030|READF* <207> 

390 F0RJ-lT0LEN<F*>iP0KEAD+J,A8C<HID*(F*,J,t))iN 
EXTJ <111> 

360 PO*PO+2iPOKEPO+i , (AD+l)/296«POKEPO,AD+1—256* 

PEEK <PO+l)iAD-AD+LEN <F*>iNEXTI <177> 

370 AD-AD+1iHI*INT<AD/296)iL0»AD-HI*256 <67> 

3B0 SYS97012N4,SiP0KE193,0iP0kE194,192aP0KE174,L 
OiPOKE179,HItSYS62937 <167> 

390 IFS*1THENEND <213> 

400 0PEN1,0,15iINPUT#1,A,B4,C,DaPRINTA,B4,C)DiCL 
OSEliEND <206> 

410 REM*****#***»*»*»*■■****»****»*»*♦» , <10> 


420 REM* FEHLERMELDUNGEN * <20> 

430 REM****** ************************** <30> 

440 DATA 11 ZU < SPACE > V IELEt SPAC£ > FI LE <SS> 11 <13> 

490 DATA"FILE {SPACEIBEREI TSC SPACE >OFFE<S#t> 11 <191> 

460 DATA"FILE<S£^C£>NICHT<S£4CE>0FFECSNJ H <46> 

470 DATA M FILEC§PAC£>NICHTCSPACE>GEFUNDE<SW>" <133> 

400 QATA W PERIPHERIE< SPACC> ISTI SPACO NICHTC SPACE3 1 
BEREITST>" <230> 

490 DATA ,, KEINtSP4CE>SCHRElBFILCS£> N <180> 

900 DATA"KEINtSPAC£>LESEFILtS£>" <164> 

910 D AT A " PRQ0R AMMNAHEt SPACE > FEHL t ST > 11 <40> 

920 DATA"UNERLAUBTEt SPACE J GERAETENUMME<SP>» <200> 

930 DATA M NEXT<SPAC£>OHNECSPAC£>FO<SP>" <90> 

940 DATA M PRO0RAMMAUFBA<Stf>" <161> 

590 DATA »RETURN< SPACE ) OHNE C SPACE ! B DSU < SB > " <36> 

960 DATA"KEINEC SPACE> DATENt SPACE lHEH<SP>" <115> 

570 DATA " UNERLAUBTE C SPACE> MENB ISO" <220> 

580 DATA M UEBERLAUCgF>" <91> 

590 DATA* 1 SPEICHER-C SfMCO VOLlSO 11 <1BB> 

600 DATA"ZEILEt SPACE )NICHT{ SPACE )VORHÄNDE<SW)" <211> 

610 DATA n FEI_D{ SPACE) NICHT{ SPACE )DIMENSIQNIER{S7> 

H <95> 

620 DATA'*FELDtSP^CE>BEREITStS£4CE>DIMENSIONIER 
£> M <220> 

630 DATA**DI VISION t SPAC£) DURCH{ SPACS )NUL CSE) 11 <64> 

640 PATA"KEIN< SPACE )DIREKTHODUS{ SPAC£) HOEBLIC{SW 
)" <162> 

650 DATA"VERTIPP<S7) M <B> 

660 DATA"STRINB< SPAC£> ZUC SPAC£) LANCSO>" <201 > 

670 DATA 11 FI LE < SPAC£ ) DATE <SW) 11 <97> 

680 DATA”FORMEL C SPACE! ZU{ SPACE) KOMPLIZIER {SD H <26> 
690 DATA M CONT{ SPACE )N1CHT{ SPACE )MOEHLIC{SW) 11 <103> 

700 DATA"UNDEFINIERTE{ SPACE) FUNKTIQ{SW>" <76> 

710 DATA H VERBLEIC{££) N <132> 

720 DATA"LADCSE>" <97> 

730 DATA"ABBRUC{SW)" <107> 

ENDE DE8 LISTINGB 


REM-ZEILEN 

KILLER 


Haben Sie sich nicht schon oft 
darüber geärgert, daß die Rem- 
Zeilen in Ihren Basic-Program¬ 
men, die es anfangs sehr über¬ 
sichtlich kommentierten, wert¬ 
vollen Speicherplatz wegneh¬ 
men? Auch Zugriffszeiten auf 
Floppy und nicht zuletzt Dataset- 
te werden unnötig verlängert. 
Das Programm "Rem Zeilen Kil¬ 
ler 11 schafft hier Abhilfe! Nach 


dem Starten des Maschinenpro¬ 
grammes durch *Sys 50258*, wer¬ 
den alle Zeilen, in denen nur ein 
Rem-Befehl steht, ganz und ande¬ 
re Remzeilen hinter dem letzten 
Befehl, vor dem Rem gelöscht. 
Der Programmablauf dauert je 
nach Anzahl der Rem-Zeilen, 
zwischen einer Sekunde und zwei 
Minuten. 

*** 


C-64 LISTING + CHECKSUMMEN 

(C VI. 

0) 




1070 DATA 91,FB 

3 REM 

C41B 

STA 

<*FB>,Y 

; ABSP 










EICHERN. 






<17B> 









1080 DATA E6,FB 

:REM 

C41D 

INC 

*FB 

9 ZIEL 









<235> 

VEKTOR INCREMENTIEREN. 





< 120> 

110 REM* 








1090 DATA DO,02 

s REM 

C41F 

BNE 

*C423 


< 14> 




* 




<207> 

1100 DATA E6,FC 

s REM 

C421 

INC 

*FC 


<ioi> 

120 REM« REM - ZEILEN KILLER 





1110 DATA E6,FD 

3 REM 

C423 

INC 

*FD 

9 LADE 





* 




<50> 

VEKTOR INKREMENTIEREN. 





< 150> 

130 REM* -—- 





VON TH 


1120 DATA DO,02 

: REM 

C425 

BNE 

*C429 


<227> 

OMAS GUENTHER 



* 




<67> 

1130 DATA E6,FE 

s REM 

C427 

INC 

*FE 


<251 > 

140 REM* 






GE 


1140 DATA A5,FD 

s REM 

C429 

LDA 

*FD 

; PROG 


RANIENSTR.7 



* 




<99> 

RAMMENDE <LOW) SCHON ERREICHT? 




<1555 

150 REM* FUER C - 

64 





44 


1150 DATA C5,22 

s REM 

C42B 

CMP 

*22 


<115> 

60 NORDHORN 



* 




< 141 > 

1160 DATA DO,EA 

s REM 

C42D 

BNE 

*C4I9 

; NEIN 

* t 

160 REM* - 








, HEITER. 






<163> 




* 




<71 > 

1170 DATA A5.FE 

s REM 

C42F 

LDA 

♦FE 

9 PROG 










RAMMENDE (HIGH) SCHON ERREICHT? 



<70> 








<49> 

11BO DATA C5,23 

: REM 

C431 

CMP 

*23 


<232> 

180 3 







<23B> 

1190 DATA D0,E4 

s REM 

C433 

BNE 

♦C419 

; NEIN 


190 s 







<240> 

, WEITER. 






< 170> 







BLOC 


1200 DATA 20,33,A5 

s REM 

C435 

JSR 

*A533 

9 BASI 


KVERSCHIEBEROUTINE.' 







<30> 

C-ZEILEN NEU BINDEN. 






<04 > 

1010 DATA A5.2D 

3 REM 

C40F 

LDA 

*2D 

1 

LETZ 


1210 DATA A5,22 

3 REM 

C43S 

LDA 

*22 

9 OBIG 


TES ZU VERSCHIEBENDES BYTE 





<3> 

E ROUTINE LEGT NEUES PROGRAMM- 




<90> 

1020 DATA B5,22 

s REM 

C411 

STA 

»22 

■ 

IST 


1220 DATA 1B 

sREM 

C43A 

CLC 


$ ENDE 


PROGRAMMENDE 1. 







<23> 

- 2 IN *22/*23 AB. 






<29> 

1030 DATA A5,2E 

s REM 

C413 

LDA 

*2E 

• 

3 


<22> 

1240 DATA 69,02 

s REM 

C43B 

ADC 

#*02 

9 PROB 


1040 DATA B5,23 

r REM 

C415 

STA 

*23 

9 


<177> 

RAMMENDE IN DIE ADRESSEN 





<215> 

1050 DATA A0,00 

3 REM 

C417 

LDY 

#*00 

; 

ZAEH 


1250 DATA 85,2D 

: REM 

C43D 

STA 

*2D 

; *2D/ 


LER AUF NULL. 







< 174> 

*2E SCHREIBEN. 






<70 

1060 DATA Bl,FD 

3 REM 

C419 

LDA 

<*FD> 

.V; 

BYTE 


1260 DATA A5,23 

3 REM 

C43F 

LDA 

*23 


<70> 

LADEN UND 







<175> 

1270 DATA 69,00 

s REM 

C441 

ADC 

#*00 


<95> 


40 


mlb 


TI/86 


























Programme 


1280 DATA B5,2E 


xREM C443 STA 42E 


1290 

DATA 

60 

iREM 

C445 

RTS 

1 

ENDE 


1740 DATA 

CO,04 

bREM C4A2 

CPY 

«404 

DER 

KOPIERROUTINE. 





<S0> 

JA, ERSTES ZEICHEN 

IN ZEILE? 



1295 







BLOC 


1750 DATA 

DO,Fl 

»REM C4A4 

BNE 

4C497 

KENDE ERMITTELN. 






<22> 

NICHT INY 

UEBERSPRINGEN. 



1300 

DATA 

AO,00 

»REM 

C446 

LDY 

«400 | 

ANFA 


1760 DATA 

CB 

»REMC4A6 

INY 


NG DER NAECHSTEN 

PROGRAMMZEILE 




<255> 

ELPUNKT NICHT LOESCHEN. 



1310 

DATA 

Bl ,3B 

»REM 

C44G 

LDA 

(43B),Y| 

ALS 


1770 DATA 

A9,00 

bREM C4A7 

LDA 

«400 

ENDE 

DES ZU LOESCHENDEN BLOCKES 



<110> 

(FLAG FUER ZEILENENDE) AN 



1320 

DATA 

85, FD 

sREM 

C44A 

STA 

4FD ; 

DEFI 


1780 DATA 

91,38 

bREM C4A9 

STA 

(43B) 

NIEREN (NACH 4FD/4FE). 





<19B> 

NTANE VEKTORPOSITION SCHREIBEN. 

1 


1330 

DATA 

CB 

bREM 

C44C 

INY 

I 


<243> 

1800 DATA 

CB 

(REM C4AB 

INY 


1340 

DATA 

Bl ,3B 

»REM 

C44D 

LDA 

(43B),Yj 


<121 > 

LER ERHOEHEN. 




1350 

DATA 

85,FE 

sREM 

C44F 

STA 

4FE 9 


<61 > 

1810 DATA 

9B 

sREM C4AC 

TYA 



1360 DATA 60 


iREM C451 RTS 







HAUP 


TPROGRAMM (EINSPRUNG). 





<111> 

1370 DATA A5,2B 

sREM 

C452 

LDA 

42B 

9 VEKT 


OR 43B/43C AUF PROGRAMM - 




<205> 

1380 DATA 85,3B 

bREM 

C454 

STA 

43B 

| ANFA 


NG. 






<22B> 

1390 DATA A5,2C 

iREM 

C456 

LDA 

42C 


<159» 

1400 DATA 85,3C 

»REM 

C459 

STA 

43C 


<12> 

1410 DATA A0,01 

»REM 

C45A 

LDY 

#401 

9 PROG 


RAMMENDE SCHON ERREICHT? 





<22> 

1420 DATA Bl,3B 

sREM 

C45C 

LDA 

(43B),Y 


<200> 

1430 DATA DO,06 

bREM 

C45E 

BNE 

4C466 

9 NEIN 


, WEITER. 






<87> 

1440 DATA 20,60,A6 

sREM 

C460 

JSR 

4A660 

9 CLR 


- BEFEHL. 






<203» 

1450 DATA 60,EA,EA 

»REM 

C463 

RTS 


; ENDE 


DES REM - ZEILEN KILLERS. 




<233> 

1460 DATA A0,04 

»REM 

C466 

LDY 

#404 

9 GLEI 


CH ERSTES BYTE DER ZEILE 





<237» 

1470 DATA Bl,3B 

sREM 

C46B 

LDA 

(43B),Y 

; = 48 


F (TOKEN FUER REM)? 






<207» 

1480 DATA C9,BF 

sREM 

C46A 

CMP 

«48F 


<91 > 

1490 DATA DO,11 

»REM 

C46C 

BNE 

4C47F 

; NEIN 


, ANDERE BYTES PRUEFEN. 





<227> 

1500 DATA A5,3B 

iREM 

C46E 

LDA 

43B 

; SONS 


T ZEILENANFANG ALS 

BEGINN DES 




<164» 

1510 DATA 85,FB 

sREM 

C470 

STA 

4FB 

9 ZU L 


OESCHENDEN BLOCKES. 






<123» 

1520 DATA A5,3C 

»REM 

C472 

LDA 

43C 

9 (GAN 


ZE ZEILE MUSS GELOESCHT WERDEN) 



<B> 

1530 DATA 85,FC 

»REM 

C474 

STA 

4FC 


<10> 

1540 DATA 20,46,C4 

sREM 

C476 

JSR 

4C446 

9 BLOC 


KENDE FINDEN UND 






<67> 

1550 DATA 20,OF,C4 

sREM 

C479 

JSR 

4C40F 

9 KOPI 


EREN. 






< 185» 

1560 DATA 4C,5A,C4 

sREM 

C47C 

JMP 

4C45A 

9 NAEC 


HSTE ZEILE TESTEN. 






<107» 

1570 DATA CB 

sREM 

C47F 

INY 


9 VEKT 


OR AUF NAECHSTES BYTE. 





<143> 

1580 DATA Bl,3B 

»REM 

C480 

LDA 

(43B),Y 

9 EINL 


ADEN. 






<71> 

1590 DATA D0,0F 

sREM 

C4B2 

BNE 

4C493 

9 GLEI 


CH NULL? NEIN, DANN 

WEITER. 




<229» 

1600 DATA A0,00 

sREM 

C4B4 

LDY 

#400 

9 SONS 


T ZEILENENDE. ERSTEN BEIDEN 




<155» 

1610 DATA Bl,3B 

sREM 

C4B6 

LDA 

(43B),Y 

9 BYTE 


S DER ZEILE (LINKADRESSE) 

i GEBEN 



<218> 

1620 DATA AA 

sREM 

C488 

TAX 


9 ADRE 


SSE DER NAECHSTEN ZEILE AN. 




<05> 

1630 DATA CB 

sREM 

C4B9 

INY 


; DIES 


E IN VEKTOR LADEN. 






<213> 

1640 DATA Bl,3B 

»REM 

C4BA 

LDA 

(43B),Y 


< 174» 

1650 DATA 86,3B 

sREM 

C4BC 

STX 

43B 


<228> 

1660 DATA 85,3C 

sREM 

C4BE 

STA 

43C 


<194» 

1663 DATA 4C,5A,C4 

»REM 

C490 

JMP 

C45A 

9 ZURU 


ECK, NAECHSTE ZEILE. 






<253> 

1665 DATA C9,BF 

sREM 

C493 

CMP 

«48F 

9 CODE 


FUER REM? 






< 181 > 

1670 DATA DO,EB 

sREM 

C495 

BNE 

4C47F 

9 NEIN 


, ZAEHLER ERHOEHEN. 






<81 > 

16B0 DATA 8B 

sREM 

C497 

DEY 


9 SONS 


T ZAEHLER ERNIEDRIGEN UND VOR- 




<90> 

1690 DATA Bl,3B 

sREM 

C498 

LDA 

(43B),Y 

f 9 IGES 


BYTE TESTEN. 






<62> 

1700 DATA C9,20 

sREM 

C49A 

CMP 

«420 

9 SPAC 


E? 






<154» 

1710 DATA F0,F9 

sREM 

C49C 

BEQ 

4C497 

9 DANN 


ZAEHLER WEITER ERNIEDRIGEN. 




<24B> 

1720 DATA C9,3A 

sREM 

C49E 

CMP 

«43A 

9 DOPP 


ELPUNKT? 






< 152» 

1730 DATA DO,04 

sREM 

C4A0 

BNE 

4C4A6 

; NEIN 



<91 > 


<153> 


WEITER. 


ZU VEKTOR IN 43B/43C 
1B 


■REM C4AD CLC 


1B20 DATA 
EREN. 

1B30 DATA 65,3B «REM C4AE 
ERGIBT DEN ANFANG DES ZU 
1B40 DATA 85,FB »REM C4B0 
CHENDEN BLOCKES. 

1850 DATA A5 V 3C iREM C4B2 
1B60 DATA 69,00 iREM C4B4 
1870 DATA 65,FC »REM C4B6 
1BBO DATA 20,46,C4 »REM C4B8 
DES BLOCKES ERMITTELN. 

1B90 DATA 20,0F,C4 »REM C4BB 
EREN. 

1900 DATA <4C,5A,C4 iREM C4BE 
HSTE ZEILE. 

9000 REM« »»«»ft**«-*********** 11 ****** ************* 


ADC 43B 

STA 4FB 

LDA 43C 
ADC «400 
STA 4FC- 
JSR 4C446 

JSR 4C40F 

JMP 4C45A 


WENN 


WENN 


ZAEH 


UND 


ADDI 


DIES 


LOES 


ENDE 


KOPI 


NAEC 


9010 » 

s 

9020 i PQKE532B0.Os P0KE532B1 .ObPRINT" t CLEAR HHIT 
E SP4CE3 >EINENC SP4CO AUGENBLICK< SP4CC >BITTEb i S PA 
CE>DIE<SP4Cf>DATEN" b 

9030 t 5=0»PRINT" i HHJTE J "iPRINT" i SPACE6J WERDEN<g 
PACE y ZUNAECHSTt SJMCE JElNBELESENt SfMCE J \ ” »FÜR Kl« 
O TO 177» 

9040 e READ A4 s B4= LEFT4(A4,1> s C4® MID4(A4,2 
,1) e F4=B4 tSOSUB 9500 sB=F i 

9050 s F4=C4 t BOSUB 9500 s C=F B A»(B*16)+C b S 
—S+A : PDKE N+50191,A t NEXT Ns 

9060 8 IF S<>23182 THEN PRINT" t CLEÄR Ü0HH1Ö SPAC 
El3 )FEHLER I SPACE 7 INI SPACE > DATAS t SPACE2 1 ! « iEND» 
9070 s PRINT" C HOHE D0HH5 SPACE7y MASCHINENCODEISP 
ACEy ABSPEICHERN? i SPACEy "i BET A4 « IFA4=""THEN9070 
s 

9090 b IFA4="J"THEN0PEN1, 8 ,1,".KILLREM" i PRINT« 
1,CHR4(0)|CHR4< 64> 9 i G0T09110» 

9100 » PRINT" i CLEAR D0HH7 SPACE2y DASI SPACE y PROBR 
AMMI SP4CO ISTI SPXCE INUNI SP4CO BETRIEBSBEREIT! “ i 
tENDs 

9110 x FÜR N= O TO 177 sPRINT«l,CHR4(PEEK(N+5019 
1) > 9 sNEXT N iCLOSEI sG0T09100s 
9140 b 

s 

9500 REM**************************************** 


ZIMAL UMWANDLUNGSTABELLE 
9520 s IF F4="B" THEN F4= 


<209> 
<B3> 
<163> 
<27> 
<128> 
<164> 
<131 > 
< 10 > 
<35> 
<167> 

<141> 

<226> 
< 110 > 
<241 > 

<155> 

<47> 

< 145> 

<216> 

<3> 

<64> 

< I92> 
<23> 

< 167> 

< 193> 

<65> 

<B5> 

< 141 > 
<215> 
<133> 
<206> 


MIT DIESEM PROGRAMM 
9540 * IF F4="D" THEN 
SICHERTE VERSION MUSS 
9550 i IF F4="E" THEN 
LUT GELADEN WERDEN. 


9570 s F=VAL <F4) iRETURN 
6 VON THOMAS GUENTHER 
95S0 REM****##***»#*»#**» 


-io» 

s 

REM 

* 

HEX - DE 


* 

s 




<115» 

11" 

» 

REM 

* 



* 

s 




<33> 

12» 

1 

REM 

* 

DIE 


* 

1 




<21 > 

'13» 

s 

REM 

* 

ABGESP 


*- 

B 




<15> 

14» 

1 

REM 

* 

ABSO 


* 

S 




<57> 

15» 

S 

REM 

* 



* 

B 




<161» 


S 

REM 

• 

(W) 198 


* 

1 




<226> 


9585 REM* 

9590 REM* DER REM 

SYS 50258 GESTARTET ! 
9600 REM* 


ZEILEN KILLER WIRD MIT 


9640 REM************ 
ENDE DES LISTINGS 


<30> 


<247> 


< 140> 


< 6 > 


<90> 
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Programme 


Ab nächster Ausgabe: 

Kurs - Interruptprogrammierung des C64 


6502-Assembler-Kurs 

feil 18 


Da die Belegung der Zero-Page für effektives Program¬ 
mieren von größter Bedeutung ist, setzen wir an dieser 
Stelle die Beschreibung dieser Speicherstellen fort. 


ZERO-PAGE TEIL 2 


$A4 

164 

Zyklenzähler 




$A5 

165 

Bandschreiben Zähler/Bitzahl 

Adresse 

DEZIMAL 

Belegung 

$A6 

166 

Zeiger in Bandpuffer 

HEX 



$A7-AB 

167-171 

Arbeitsspeicher für Bandein/ausgabe 




$AC-$A 



$6E 

110 

Vorzeichen für ARG 




$6F 

111 

Vorzeichenvergleich, Akku U 1 gegen Akku 






Ul 

D 

172-173 

Zeiger für Bandpuffer und Scrolling 

$70 

112 

Akku Ul niederwertig {runden) 

$AE-$AF 

174-175 

LOAD/SAVE Zeiger auf Programmende 

$71-$72 

113-114 

Zeiger in Kasset tenpuife r; La nge/ Re I he 

$B0-$B1 

176-177 

Zeit konstanten für Band-Timing 

$73-$8A 

115-138 

CHRGET-Routine; kleines Maschinenpro¬ 

$B2-$B3 

178-179 

Zeiger auf den Anfang des Bandpuffers 



gramm 

$B4 

180 

Bitzähler für Band 



welches Zeichen aus Basic-Text 

$B5 

181 

Band EOT/RS232 nächstes Bit 



holt 

$B6 

182 

Puffer für auszugebendes Byte 

$7A-$7B 

122-123 

Basic-Zeiger (innerhalb CHRGET) 

$B7 

183 

Länge des Filenamens - 

$8B-$8F 

139-143 

Anfangsweit für RND 

$B8 

184 

Logische Kienummer 

$90 

144 

Statuswort ST 

$B9 

185 

Sekundär ad resse 

$91 

145 

Flag für STOP-Taste 

$BA 

186 

Gerätenummer 

$92 

146 . 

Zeitgeber konstante für Band 

u 

i 

s 

187-188 

Zeiger auf Filename 

$93 

147 

Laden*0; Verifizierend; 

$BD 

189 

Schreiben Shift-Wort/Lesen Eingabe Zeichen 

$94 

148 

Flag für IEC-Ausgabe 

$BE 

190 

Anzahl der zu lesenden/schreibenden Blocks 

$95 

149 

Seriell hinausgeschobenes Zeichen 

$BF 

191 

Puffer für serielle Ausgabe 

$96 

150 

EOT {Fileenife} von Band erhalten 

$C0 

192 

Sperre für Band-Motor 

$97 

151 

Zwischenspeicher für Register 

$C1-$C2 

193-194 

I/O Startadresse 

$98 

152 

Anzahl der offenen Files 

$C3-$C4 

195-196 

Endadresse für Ein- und Ausgabe 

$99 

153 

Aktives Eingabegerät 

$C5 

197 

Letzte gedrückte Taste 

$9A 

154 

Aktives Ausgabegerät 

$C6 

198 

Anzahl der gedrückten Tasten 

$9B 

155 

Band Zeichen-Parität 

$C7 

199 

Flag für RVS'Modus 

$9C 

156 

Flag für Byte-Empfangen 

$C8 

200 

Zei lenen de für Eingabe 

$9D 

157 

Flag Direkt-Modus $80 / Programm $00 

$C9-$CA 

201-202 

Cursor Zeile^Spalte für Eingabe 

$9E 

158 

Fehlerspeicher für Band Pass 1 

$CB 

203 

Gedrückte Taste (64=keine Taste) 

$9F 

159 

Fehlerkorrektur in Band Pass 2 

$CC 

204 

Flag für blinkenden Cursor 

$A0-$A2 

160-162 

Momentanwert Uhr HML 

$CD 

205 

Cursor Zeitgeber 

$A3 

163 

Serieller Bitzähler / EOI Flag 

SCE 

206 

Zeichen unter dem Cursor 


» ©emßcüte mült w 











$CF 

207 

$D0 

208 

$D1-$D2 

209-210 

$D3 

211 

$D4 

212 

$D5 

213 

$D6 

214 

$D7 

215 

$D8 

216 

$D9-$F2 

217-242 

SF3-SF4 

243-244 

$F5-$F6 

245-246 

j»F7-$F8 

247-248 

$F9-$FA 

249-250 

SFB-SFE 

251-254 

SFF-J10 

A 

255-266 


Flag für blinkenden Cursor 
Eingabe von Bildschirm/Tastatur 
Zeiger auf Bildsehirmzeile 
Cursorspalte 

Flag für Cursor-Operationen 
Länge der Bildschirmzeile 
Cursorzeile 

Universal-Adresse für mehrere Operationen 

Anzahl der ausstehenden INSERTs 

Bildschirmzeilenanfänge 

Zeiger in Farbram 

Zeiger auf Tastarur-Dekodiertabelle 

RS232 Empfangszeiger 

RS232 Sendezeiger 

Nicht belegt, steht Anwender zur Verfü¬ 
gung 

Puffer für Umwandlung Fließkomma nach 

ascü 


Ende der ZERO-Page 


Wie nutzt man die Zero-Page ? 

Die Zero-Page läßt sich sowohl von Basic aus, als auch mit Maschinen¬ 
sprache sehr sinnvoll ausnutzen. Wollen wir beispielsweise ein Maschi¬ 
nenprogramm oberhalb des Basic-Speichers ablegen, weil unser 4k 
Block von $CQ00-$CFFF nicht ausreichr, so können wir dies folgender¬ 
maßen erreichen: 


POKE 55,LOWBYTE (niederweniges Byte der Maschinencode An¬ 
fangsadresse) 

POKE 56, HIGHBYTE (höherweriges Byte der Maschinencode An- 
fangsadressse) 

Durch die oben aufgefühnen POKE-Befehle wird der ZEROPAGE- 
Zeiger für die höchste Basic Speicherstelle verändert. Dadurch läßt sich 
der Speicher oberhalb dieser Grenze für Maschinencode oder sonstige 
Daten nutzen, ohne daß die Gefahr besteht» diesen Bereich durch Basic- 
Operationen zu überschreiben. Der Basic-Speicher wird natürlich 
durch das Herabsetzen dieser Zeigerwerte entsprechend verringert, was 
sich sehr leicht über die FRE-Anweisung nacnprüfen läßt. Eine andere 
Möglichkeit wäre über die Zero-Page Adressen 43 und 44 den Start des 
Basic-Speichers zu verändern* Auch diese Methode könnte Platz für ein 
Maschinenprogramm oder sonstige Daten schaffen. Beide Methoden 
lassen sich natürlich ebenso einfach mit Maschinensprache bewerkstel¬ 
ligen. Eine andere Möglichkeit wäre beispielsweise durch die Adresse 
199 den RVS-Mode ein oder auszuschalten, oder über die Adresse 203 
die Tastatur abzufragen. Die Möglichkeiten sind nahezu unbegrenzt. 

Basic-ROM und System-Routinen 

Neben der Möglichkeit Zero-Page-Adressen zu manipulieren, gibt es 
beim C64 eine ganze Reihe weiterer Speicherstellen, welche sich vor¬ 
züglich vom Anwender nutzen lassen. Um die Vorteile einiger dieser 
Routinen zu demonstrieren» wollen wir nun ein kleines Assemblerpro¬ 
gramm schreiben. Dieses Programm soll dem Bask-Programmierer er _ 
möglichen» den Cursor an eine beliebige Stelle zu positionieren, ohne 
auf Steuerzeichen oder ähnliches zurück greifen zu müssen. 

Folgende ROM-Routinen werden für diese Programme benötigt: 
CKCOM =$AEFD Auf Komma prüfen 

Diese ROM-ROUTINE wird für die Parameterübergabe benötigt. 
Nach ihrem Aufruf holt sie über die CHRGET-Routinc ein Zeichen 
aus dem Basic-Text. Ist dieses Zeichen ungleich dem Komma, so wird 
ein SYNTAX ERROR ausgegeben. Ansonsten wird die ROUTINE 
durch einen RTS (RETURN) beendet. 


_Programme 

GETBYT=$B79E Byte holen 

Diese ROUTINE wird ebenfalls für die Parameterübergabe benötigt. 
Nach Ihrem Aufruf wird über die CHRGET ein Zeichen aus dem 
Basic-Text geholt. Entspricht dieses Zeichen einer Zahl, so werden so¬ 
lange Zeichen aus dem Basic-Text geholt, bis auf ein Leerzeichen bzw. 
einen Buchstaben getroffen wird. Danach werden alle eingelesenen Zif¬ 
fern zu einer echten 8-Bit Zahl verarbeitet. Diese wird dem X-Register 
übergeben, und danach über RTS (RETURN) zurückgesprungen. 


CURSOR=$FFFÖ Cursor setzen 

Das Unterprogramm CURSOR hat zwei Funktionen. Bei Aufruf mit 
gelöschtem Carryflag, setzt es den Cursor auf die Zeüe und Spalte, die 
im X- und Y-Register stehen. Ruft man den Cursor dagegen mit gesetz¬ 
tem Carrfflag auf, wird die momentane Cursorposition geholt und im 
X- Y-Register übergeben. In unserm Beispiel verwenden wir verständli¬ 
cher Weise den ersten Fall, 

PRINT»$AAA4 Prim 

Dieses Unterprogramm wird zum Ausgeben des Textes genutzt. Nach 
dem Aufruf wird ein Text, welcher sich in Anführungszeichen befin¬ 
den muß, eingelesen und auf dem Bildschirm ausgegeben. 

Damit haben wir alle Routinen kennen gelernt und können somit un¬ 
sere Aufgabe lösen. Das folgende Assembler-Listing demonstriert dies: 


2 

15s COOO -OPT Pl.OO 

16l COOO *= 49152 : STARTADRESSE AB «COOO 

s 

s ASSEMBLERKURS TEIL 10 PRINT AT 
3 

«ADRESSEN DER ROM ROUTINEN 


I 


70! 

COOO 


* 


CKCOM 

3 

«AEFD 

«AUF KOMMA PRUEFEN 

BOl 

COOO 




GETBYT 

3 

«B79E 

«BYTE HOLEN 

90 b 

COOO 




CURSOR 

m 

♦FFFO 

«CURSOR SETZEN 

95: 

COOO 




PRINT 

B 

«AAA4 

«TEXT AUSBEBEN 

110: COOO 

20 FD AE 

BTART 

JSR 

CKCOM 

«AUF KOMMA PRUEFEN 

120: C003 

20 

9E 

B7 


JSR 

GETBYT 

J SP ALTENWERT HOLEN 

130 

C006 

BA 




TXA 


1 SPALTENWERT NACH AKKU BRINGEN 

140 

C007 

4B 




PHA 


aSPALTENMERT AUF STAPEL LEGEN 

150 

C008 

20 

FD 

AE 


JSR 

CKCOM 

iAUF KQHMA PRUEFEN 

160 

COOB 

20 

9E 

B7 


JSR 

GETBYT 

1 ZEILEN« tT HOLEN 

170 

COOE 

6B 




PLA 


:SPALTENWERT VON STAPEL HOLEN 

100 

COOF 

AB 




TAY 


«SPALTENWERT NACH Y BRINGEN 

190 

C010 

1B 




CLC 


«CARRY-FLAG LOESCHEN UM 






«CURSOR-ROUTINE EINZUSTELLEN 

210: COll 

20 

FO 

FF 


JSR 

CURSOR 

«CURSOR t>EU SETZEN 

220: 

C014 

20 

FD 

AE 


JSR 

CKCOM 

SPRUEFT AUF KOMMA 

230: 

CO 17 

20 

A4 

AA 


JSR 

PRINT 

«TEXT AUSGEBEN 

240: 

C01A 

60 




RTS 




Funktionsweise und Syntax 

Die Syntax unserer kleinen Basic-Erwekerung ist relativ einfach. Sie 
entspricht weitgehend dem PRINT AT Befehl aus anderen Bask- 
Versionen, Der Aufruf erfolgt direkt oder innerhalb eines Programmes 
in folgender Art und Weise: 


SYS 49152,X*Y*"TEXT” 

Die Variable Xgibt die zu setzende Spalte (0-39), und die Variable Y die 
zu setzende Zeile (0-24) an. Die nachfolgende Variable gibt an, welcher 
STRING ausgeeeben werden soll. Die Funktion der Routine erklärt 
sich durch das dokumentierte Assembler!isting von selbst. 

Im nächsten Teil unseres Kurses werden wir eine weitere Aufstellung 
über die noch nicht erwähnten Speicherste 1 len und Systemrout inen 
bringen. Als Abschluß unseres Assemblerkurses ist es unser Ziel, eine 
vollständige Basic-Erweiterung zu erarbeiten und als Assembler-Listing 
abzudrucken. 

Frank Brall 
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Schneider- 


Schneider 


Das vorliegende Programm bietet 
von einem umfangreichen Menü 
aus alle wichtigen Diskettenope- 

rationen an. 



Das lästige Neuformulieren der 
Diskettnbefehle von Basic aus 
kann daher entfallen. 

Folgende Befehle sind in der Dis- 
keitenhilfe enthalten: 

Catalog 



Rename 

Erase 


Löschen 

Saven 

Ende aller Funktionen 
Laufwerk a/b 
CP/M 

Komma ’p’ Programme laden 

Alle Menüpunkte werden vom 
Programm aus erklärt. Der große 
Voneil: auch wenn Sie dieses Pro¬ 
gramm selten benutzen, müssen 
Sie nicht in der Anleitung blät¬ 
tern. Ansonsten haben Sie jeder¬ 
zeit eine hervorragende Disket- 
tenhÜfe zur Hand. 


10 1 Dieketten-Hilfe by N.Hartin 86 
20 * 

40'* M E N U E « 

SO • *—-» 

60 ' 

70 MODE 2iLOCATE 10,1iPRINT "ttO 
Disketten-Hilfe 

by N.Martin"iLOCATE 1,2«PRINT BTRIN 
G*<80,154) 

80 GOSUD 1060 

90 LOCATE 23,6tPRINT "Catalog - "xLOC 
ATE 23,9«PRINT " Rename - "iLÜCATE 23 
,12«PRINT" Erase - "iLOCATE 22,1S«PR 
INT"Loeschen ° "iLOCATE 20,18:PRINT" 
Saven - "«LOCATE 40,18iPRINT" - E 
nde aller Funktionen"«LOCATE 40,15«PR 
INT " - Tape/Disc 

100 LOCATE 40,12«PRINT M - Laufwerk a 
/b"sLOCATE 40,9iPRINT " - CP/M"«LOCAT 
E 40,6iPRINT " - Komma 'p' Programme 
laden 

HO a*«INKEY*iIF a*-""THEN 110 

120 IF a** M Ö" THEN llOO 

130 a«ASC<a*)-48iON * GOTO 150,290,40 

0,530,640,770,B50,870 v 950 

140 GOTO llO 

150 ' *** CATALOG *** 

160 CL9«LOCATE 1,2«PRINT STRING*<80,1 
54)iLOCATE 10,1«PRINT H «1 

CATALOG by N.Ma 

rtin" 

170 PRINTiPRINT«PRINT n Bitte eine Dis 
kette einlegen und eine Taste druecke 
n.Mit den Cursor—Tasten <rauf/ru 


nter) koennen Sie den User um eins na 
ch oben,bzw um eins nach unten ve 
rschleben." 

ISO CALL StBBlB 
190 CLS 

200 IF user 3 —I THEN user-15 
210 IF user*16 THEN user*0 
220 !USER,useriIF g*-"Tape M THEN 70 E 
LSE CAT 

.230 PRINTiPRINT "Bitte "|CHR*<240)|* 
oder "jCHR*<241)|" oder CENTER!" 

240 a*-INKEY*iIF a*«"”THEN 240 

250 IF a*»CHR*<240> THEN user-user+1« 

GOTO 190 

260 IF a*»CHR*<241> THEN ueer-Hiser-lx 
GOTO 190 

270 IF a*«CHR*<13) THEN 30 

280 GOTO 240 

290 * **-* Rename *** 

300 CLS«LOCATE 1,2:PRINT STRING*<80,1 
54)«LOCATE 10,1«PRINT "42 

Rename by N.MA 

RTIN"" 

310 PRINT«PRINT«PRINT ” Legen Sie die 
Diskette ein,auf der der File,den Sie 
umnennen wollen,gepeichert ist.Drue 
cken Sie dann einen Taste ! ACHTUNG « 
Filename,Punkt und die Abkuerzung hi 
nter dem Punkt angeben. "*CALL &BB1B 
320 PRINT«PRINT«INPUT "Auf welchem Us 
er ist das File "fuser 
330 !U5ER,üser' 

340 PRINT«PRINTiINPUT "Wie ist der ur 
spruenglichi? Name "inamel* 

350 PRINTiINPUT"Nie ist der Name,dem 


Sie dem File geben wallen H |name2* 

360 PRINT«PRINTiPRINT "Bitte Taste dr 
uecken ..."«CALL fcBBIG 
370 CLS 

3B0 IREN,8name2*,tname1* 

390 IF g*»"Tape" THEN 70 ELSE CATiPRI 
NT*PRINT«PRINT "Alles richtig ? Bitte 
Taste druecken. "«CALL «iBBlGaGOTO 30 
400 ' *** Erase *** 

410 CLS«LOCATE 10,l«PRlNT "«3 
Erase 

by N.Martin"«LOCATE 1,2«PRINT STRING* 
<80,154) 

420 PRINTiPRINT«PRINT " Bitte geben Si 
e eine Diskette ein,auf der der File, 
den Sie loeschen wollen, gespeich 

ert ist.Druecken Sie dann eine Taste. 
"«CALL fieBBlB 

430 PRINTi PRINTi INPUT "Wie Ist der Fi 
lename (bitte auch * und die Abk. d 
ahinter angeben)?"jnante* 

440 PRINTiINPUT "Auf welchem User ist 
der File "(useri!ÜSER,user 
450 PRINT«PRINT "Wollen Sie wirklich 
loeschen ? CJ/N3" 

460 a* s lNKEY*cIF a*=""THEN 460 
470 IF UPPER*<a*)*"J" THEN 500 
4B0 IF UPPER*<a*>«"N" THEN 70 
490 GOTO 450 
500 1ERA, Onanie* 

510 CLS«IF g*»”Tape" THEN 70 ELSE CAT 
«PRINTsPRINT "Bitte eine Taste drueck 
en ..." 

520 CALL fcBBIGxGOTO 70 
530 ' *** Loeschen *** 


44 


©AXUltpioO’O (Hilft 
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540 CLSiLOCATE 10,liPRINT “44 
Lovtchtn 

by N.Martin”«LOCATE 1,2lPRINT STRING* 
<BO,154> 

550 PRINT:PRINT«PRINT 8 Bitte geben 91 
e die Diskette ein,die Sie loeschen w 
ollen und druecken Sie dann eine Tas 
te."iCALL &BB10 

500 PR INT: PR INT «PR INT "Wollen Sie Mir 

klich alles loeschen CJ/Nl 

570 a*-INKEY*«IF a*«""THEN 570 

500 IF UPPER*<a*)-M" THEN 610 

Ö90 IF UPPER*<a*)«"N" THEN 70 

600 GOTO 560 

610 a*^"*.»”iIERA,«a* 

620 CLSiIF g*« N Tape" THEN 70 ELSE CAT 
«PRINT«PRINT "Bitte eine Taste drueck 
en ..." 

630 CALL IrBBlSiBOTO 70 
640 ' *** Saven *** 

650 CLS:LOCATE 10,1«PRINT "45 
Saven 

by N.Martin”«LOCATE 1,2:PRINT STRING« 
<00,154) 

660 PRINT*PRINT«PRINT " Geben Sie eine 
Diskette ein,auf der dieses Prograan 
gesaved ««erden soll und druecken 
Sie dann eine Taste. "«CALL ItBBlS 
670 PRINTsPRINT "soll Komma - 'p' abg 
esaved ««erden CJ/N3" 

680 x*«INKEY*«IF x*-""THEN 680 

690 IF UPPER*<*♦>-"J" THEN x-liGOTO 7 

20 

700 IF UPPER*<x*) a “N" Tt£N x-OiGOTO 7 
20 

710 GOTO 600 

720 PRINT«INPUT "Auf ««elchem User aol 
1 gesaved ««erden "juseri tliSER,user 
730 PRINT« PRINT« INPUT "Mit »«elchem Na 
men soll gesaved »«erden "inane* 

740 IF x*0 THEN 760 

750 SAVE name*,psCLSiCAT*PRINT*PRINT 
"Bitte eine Taste druecken ..."«CALL 
RtBBlBsGOTO 70 

760 SAVE name*«CLSiIF g*>"Tape" THEN 
70 ELSE CAT«PRINT«PRINT "Bitte einen 
Taste druecken •.."lCALL &BB1B:GOTO 7 
0 

770 ' *** Komma "p* Prg. laden *** 

700 CLSiLOCATE 10,1«PRINT "46 
Komma l p' Prg. laden 
by N.Mart 1 n"«LOCATE l,2«PRIfirr STRING 
4(80,154) 

790 PRINT«PRINT*PRINT " Beben Sie die 
Diskette ein,auf der das Komma *p' ab 
gesavete File steht und druecken 

Sie dann eine Taste.Dieses Programm 
wird automatisch geloescht! Da 

b andere Programm mird geladen und d 
anach erscheint 'Ready* mit dem 
900 PRINT " Cursor *61e koennen Jet 
Et das eigentlich geschuetzte Listing 
durchsehen.Falls Sie das Programm 
mit 'RUN' starten,koennen Sie es nie 
Fit mehr unterbrechen (also,fall 

m noetig,absaven!)."«CALL 6BB1B 


BIO PRINTsPRINT* DPUT "Auf ««elchem Us 
er ist der File "|useri IUSER,user 
B20 PRINT* INPUT "Wie ist der Name dar 
File "iname* 

830 POKE ItACOl ,«iC3iP0KE 6AC02,690*P0K 

E *AC03,*C0 

B40 LOAD name* . 

B50 * ««« CP/M tu 

B60 CLS*PRINT«PRINT*PRINT "Bitte gebe 
n Sie eine CP/M Diskette ein und drue 
cken Sie dann eine Taste."«CALL ItBBlB 
* ICPM 

B70 * »** Lauf««erfc a/b *** 

BBO CLSiLOCATE 10,1 «PRINT "«8 
Lauf ««er k a/b 

by N.Martin"*LOCATE 1,2«PRINT STRINB 
*<BO,154) 

B90 PRINT*PRINT«PRINT "Welches Lauf««e 
rk »«ollen 81e benutzen C«/bJ " 

900 a*—INKEY*iIF a*-""THEN 900 

910 IF LOWER*<a*)-"a" THEN IAbBOTO 94 

O 

920 IF LOWER*<a*)-"b* THEN IBiBOTO 94 
0 

930 GOTO 900 

940 PRINT«PRINT«PRINT "Es ist Jetzt a 
uf Lauf ««er k "|L0WER*<a*) |" gestellt.B 
itte eine Taste druecken."iCALL 6BB18 
■GOTO 70 

950 ' *** Tape/Disc *** 

960 CLSiLOCATE 10,1«PRINT "49 
Tape/Disc 

by N.Martin"«LOCATE 1,2«PRINT STRING* 
(BO,154) 

970 PRINTsPRINT«PRINT "Bitte geben 81 
e fuer Tape - T und fuar Di sc - D e 
in." 

980 a*-INKEY*«IF a*«*"THEN 980 
990 IF UPPER*<a*)m«T" THEN ITAPE«GOTO 
1020 

lOOO IF,UPPER*<a*)-"D" THEN IDISCiGOT 
O 1020 

1010 GOTO 980 

1020 IF UPPER*<a*)»“T" THEN g*-"Tape" 
ELBE g*-"Disc" 

1030 PRINT«PRINT«PRINT "Es ist Jetzt 
auf ”ig*|" gestellt.Bitte einen Taste 
druecken."tCALL 6BB1B 
1040 GOTO 70 
1050 ' 

1060 REM **** HENUE **** 

1070 * 

1060 FOR i«0 TO 12 STEP 3«LOCATE 33,1 
+5«PRINT CHR*(150)CHR*(154)CHR*(156>« 
LOCATE 33,1+6«PRINT CHR*(149)CHR*<49+ 
<1/3))CHR*<149)«LOCATE 33,1+7«PRINT C 
HR*<147)CHR*<154)CHR*<153)«NEXTiFOR i 
*0 TO 12 8TEP 3«LOCATE 37,1+5«PRINT C 
HR* < 150) CW* < 154) CHR* < 156) 

1090 LOCATE 37, i +61 PR INT CHR* <149) CHR 
*(49+<l/3)+5)CHR*(149)«LOCATE 37,1+7« 
PRINT CHR*<147)CHR*(154)CHR*(153)«NEX 
T«LOCATE 3G,i+3«PRINT "0"«LOCATE 17,2 
3«PRINT "Bitte waehlen Sie zwischen O 
und 9 >"»RETURN 
1100 * 


1110 MODE l iEND 


DECK VllPRUEFSUMMENi 


ZEILENNR.« SUMMEN 


io- 

20« 

46346 

30- 

40« 

13211 

50- 

60« 

8129 

70- 

80« 

36340 

90- 

100« 

49891 

llO- 

120« 

,29265 

130- 

140« 

25424 

150- 

160« 

14233 

170- 

180« 

32068 

190- 

200* 

32034 

210- 

220« 

84604 

230- 

240« 

58282 

250- 

260« 

11188 

270- 

280« 

12409 

290- 

300« 

71882 

310- 

320« 

59462 

330- 

340« 

44829 

350- 

360« 

72178 

370- 

380* 

26071 

390- 

400« 

60573 

410- 

420« 

72580 

430- 

440* 

32326 

450- 

460« 

28571 

470- 

480« 

30970 

490- 

500« 

10388 

510- 

520« 

22040 

530- 

540* 

15651 

550- 

560« 

34038 

570- 

580« 

33904 

590- 

600» 

14300 

610- 

620« 

36070 

630- 

640« 

11395 

650- 

660* 

88152 

670- 

680« 

37732 

690- 

700« 

67817 

710— 

720* 

54854 

730— 

740* 

67625 

750- 

760« 

85770 

770- 

780« 

65898 

790- 

BOO«: 

107981 

810- 

820« 

83237 

830— 

840* 

32753 

850- 

860« 

34403 

870— 

BBO« 

32978 

890— 

900« 

65831 

910— 

920* 

53857 

930— 

940« 

16024 

950- 

960* 

17156 

970- 

9801 

87616 

990- 

1000« 

70862 

1010- 

1020* 

10058 

1030- 

1040« 

41723 

1050- 

1060« 

7722 

1070- 

1080« 

29436 

1090- 

1100« 

9746 

mo- 

• 

982 


GE8AHTCHECKSUHMEI 6123 


Hot-Iine 


Fragen ze den Ustings «fallt h u« «euere Pragra—lerabtalbmg fttr 
Ionische Anfragen zur Verfügung. Bitte wählen Sie me diese Nummer «md raten 
Sie nur zu «len angegebenen Zelten an: Montag-Freitag, 14-16 llhr! 
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Programme 


QrhnpirW 

üU m Ivfsld 


Morse-Decoder 



Hier ist endlich mal ein Pro¬ 
gramm für die vielen Funkama¬ 
teure unter den Computerfans. 

Dieses Programm erlaubt die Edi¬ 
tion von Morsecodes. Entweder 
werden Morsecodes in Normal¬ 
schrift übersetzt, oder die Eingabe 
erfolgt in Normalschrift, die dann 
vom Programm codiert wird. 

Nach dem Starten des Pro¬ 
gramms erscheint der Bildschirm 
in zwei Hälften gesplittet. In der 
oberen erscheint das Haupt me nü 
und in der unteren ist der Morse- 
code zu sehen. Das Hauptmenü 
stellt Ihnen drei Funktionen zur 
Verfügung: 

1. Decodieren 

Nach der Anwahl des Menü¬ 
punktes ”1 M wird die obere Hälfte 
des Bildschirms gelöscht. Der 


Computer erwartet nun, daß Die 
den Morsecode eingeben. Dies ge¬ 
schieht mit den Tasten {rechts 
oben neben Null) und *T (links 
neben CLR), wobei der Strich für 
ein längeres Zeichen und der 
HochpfeÜ (er erscheint am Bild¬ 
schirm als Punkt) für ein kurzes 
Zeichen steht. Zwischen jedem 
Zeichen (z.B,: ) muß ein Frei¬ 

zeichen eingetippt werden, zwi¬ 
schen jedem Wort muß man 2 
Freizeicen einfügen. Zum Ab¬ 
schluß betätigt man die ENTER- 
Tasie. Der Computer beginnt 
nun sofort mit der Decodierung. 
Buchstabe für Buchstabe er¬ 
scheint nun der Klartext suf dem 
Bildschirm. Nach der Decodie¬ 
rung ertönt der Code noch aus 
dem Lautpredier. Mit ENTER 
gelangt man in das Hauptmenü 
zurück. 


2. Codieren 

Wurde Menüpunkt ”2” ange- 
wähit, wartet der Computer nun 
auf die Texteingabe. Geben Sie 
z.B. Ihren Namen ein und 
drücken ENTER. Der Computer 
begi nnt sofort mit der Codierung* 
Nacheinander erscheinen die 
Punkte und Striche des Morseco¬ 
des. Parallel ertönt dazu der Mor¬ 
secode aus dem Lautsprecher. 
Nun werden Sie gefragt, ob noch 
einmal ‘'gesendet" werden soll. 
Wenn Sie ”J" eingeben, können 
Sie sich den Code noch einmal an¬ 
hören oder auch ein Funkgerät an 
den Lautsprecher halten. 

Menüpunkt 3 beendet das Pro¬ 
gramm. 

Wynn Sie zweimal ESC drücken, 
ist das Programm wieder präsent. 

* * * 


IO ■ Pit-Soft 
20 * prnontia 
30 * 

40 ' HorMdacodtr 
50 ‘ 

60 * Copyright 1984 by 
70 • 

80 4 Peter H. Brubmair 
90 * 

100 HDDE 1 1 INK O.OiBORDER 4 
110 IKK 1,24*INK 2,14s INK 3,6 
120 SYMBOL AFTER 93■SYMBOL 94,0,0,0,2 
4,24iSYMBOL 95,0,112,64,102,II 61 SYMBO 
L 96,0,0,0,219,154 

130 PEN 3iL0CATE l,15*PRINT STRING*(4 
O v CHR*(227>) 

135 KEY DEF 31,1,94 
140 DIH mc*(42) 

150 mc*<l>»"A A - H smc*(2>- ,, B- AAA "imc*<3 
)«"C- A - A " t nc* (4)« M D- AAM t oc* (5) «"E A " 
160 mc*(6>”"F AA - A "smc*(7>-"B-- A "!mc*( 
e)^"H AAAA ’ > imc*<9)-"I AA "Rmc*(10>="J A — 

_M 

170 mc* ( 11 ) *"K- A - ,, i mc* ( 12 )-”L A - AAM 1 mc 
*(13) ^"M—"smc*(l4)»"N— A "smc*( 15)*"ü— 

180 mc*(16)»"P A — AM smc*(17) = N Q— A - H i» 
c*(10)*"R A - A "imc*(19)- ,, S AAAM smc*(2O)® 

•*T_h 

190 mc* C 21) 5 mc* (22) *•* •» % mc 

*(23>*"M A —"smc*(24)« M X- AA -"smc*<25>- 
"Y- A —"imc*(26)«"Z— AA " 

200 mc*(27>-"l A -"smc*(2B) = "2^-" 

1 mc* C29)» M 3 AAA — H s mc* (30) => "4 AAAA - M t mc 
*(31>-"5 AAAAA "«mc*(32)*"6- AAAAH imc*(3 
3) «"7— AAA "smc*(34>*"0 AA "imc*(33)* 

- 9 -a. 

210 mc*(36>*"0——"smc*(37)*". A - A - A - 


DECODER" 

320 PEN 2bLOCATE 10,3bPRINT STRING*(2 
3,CHR*(131)> 

330 PEN 1»PRINT" 

Decodi er en " s PRINT" 

Codieren"! PRINT" 

";>PEN 3*PRINT" Programm beenden" 

340 l* s LOWER*(INKEY*) 1 IF 1*-"1"THEN 3 
60 ELBE IF i*»"2"THEN 5B0 
350 GOTO 340 

360 ' ********** Decodieren «*«««*#»» 
* 

370 CLBiLOCATE U,2iPEN 3sPRINT"D E C 
O D I E R E N"sLOCATE ll,3iPEN 2tPRI 
NT STRING*(19,CHR*(131>> 

380 PRINT" 

" 1 PEN 2iINPUT"Code"|t* 

390 PEN 1SPRINT 
400 BOSUB 530 
410 t*«t*+" E" 

420 FOR a-1 TO LEN(t*> 

430 p*-MID*(t*,a,l) «IF p*<>" »THEN pp 
*~pp*+p* ELSE IF p*-" "THEN 470 
440 IF MID*(t*,a,2>-” »THEN PRINT" " 
I 

450 NEXT * 

460 CALL 6 BBIB 1 pp*—""s p*—"" 1 GOTO 290 
470 ' 

480 FOR b»l TO 42 

490 IF pp*—MID*(mc*(b> ,2,LEN(mc*(b) > > 
THEN PRINT LEFT*(mc*(b>,1)|«GOTO 510 
500 NEXT b 
510 pp*-"* 

520 GOTO 440 

530 FOR a-1 TO LEN(t*> 


540 IF MID*(t*,a t i)-" A "THEN SOUND 2,5 
0,5,7 ELSE IF MID*(t*,a,1>«■-" THEN S 
OUND 2,50,15,7 ELSE IF MID*(t*,a,l>«" 
" THEN SOUND 2,0,5,O 
550 SOUND 2,0,5,0 
560 NEXT * 

570 RETURN 

5B0 ' ********** Codieren #«•#»•#*»* 
590 CLSsLOCATE 13,2sPEN 3sPRINT"C 0 D 
I E R E N"sLOCATE 13,3sPEN 2 1 PRINT 8 
TRING*(15,CHR*(131)) 

600 PRINTsINPUT"TeMt"|t*st*-UPPER*(t* 
) 

610 PEN 1 

620 FOR a-1 TO LEN(t*> 

630 h*«MID*(t*,a,l> 

640 IF h*-" "THEN p*-" "sGOTO 600 
650 FOR b-1 TO 42«IF LEFT*(mc*(b),1>- 
h* THEN p*-MID*(mc*(b),2,LEN(mc*(b>>> 
«GOTO 680 

660 p*—CHR*(95)+CHR*(96) 

670 NEXT b 

660 pp*-pp*+p*+” N sIF LEN (pp*) >-251 T 
HEN GOTO 690 ELSE NEXT a 
690 PRINT pp* 

700 FOR a-1 TO LEN(pp*) 

710 IF MID*(pp*,a,l)-" A "THEN SOUND 2, 
50,5,7 ELSE IF MID*(pp*,a,1)-"-" THEN 
SOUND 2,50,15,7 ELSE IF MID*(pp*,#,1 
>«" " THEN SOUND 2,0,5,0 
720 SOUND 2*0,5,0 
730 NEXT a _ 

740 PEN 3sINPUT H Nochmal Senden"!l*sIF 
LOWER*(LEFT*(i*,1))—"J"THEN 700 
750 pp*-"" 

760 GOTO 290 


"smc*(30>—",— AA —"smc*(39)-"|-* AA " 

CHECK VI i PRUEFSUMMENs 

240- 

2501 

6BS1S 

540- 

550s 

2032 

i mc* (40) ="! A - AA - A "s mc* (41 >="- A -*"i 




260- 

270i 

7045 

560- 

570« 

1766 

mc*(42)—"? AA — AA " 

ZEILENNR.i SUMMEN 

280- 

2901 

12396 

500— 

5901 

65159 

220 WINDOW 2,40,16,25 

10- 

201 

13933 

300- 

310s 

20556 

600- 

610s 

32367 

230 ZONE 7 

30- 

401 

126G5 

320- 

330s 

37073 

620- 

630s 

26950 

240 FOR a-1 TO 42 

50- 

60« 

16130 

340- 

350s 

11376 

640- 

6501 

67B6B 

250 PEN lsPRINT LEFT*(mc*(a),1)|sPEN 

70- 

eos 

10052 

360- 

370s 

82539 

660- 

670s 

16G01 

2SPRINT MID*(mc*(a),2,LEN(mc*(#))), 

90- 

100s 

3667 

380- 

390s 

17966 

600- 

690s 

46691 

260 NEXT 

llO- 

120l 

39514 

400- 

410« 

B906 

700- 

710« 

43B02 

270 PEN 3sLOCATE 22,6sPRINT","p 

130- 

135i 

29421 

420- 

430s 

6060B 

720- 

730s 

2930 

280 WINDOW 1,40,1,14 

140- 

150 t 

13765 

440- 

450s 

27B95 

7.40- 

750s 

49073 

290 ' ********* Menue Einaprungadresa 
e ********** 

160- 

170s 

1 OAi 

46075 

MM a 47 

460- 

400- 

470« 

490s 

25650 

42227 

760- 

s 

391 

1B0— 

1TOI 





300 CLS 

200- 

210* 

33014 

500- 

510s 

5166 

GESAMTCHECKSUMMEs 55661 

310 LOCATE 10,2sPEN 3sPRINT"M 0 R S E 

220- 

230 s 

2753 

520- 

530s 

15709 
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jagen Sie mit Ihrem Jeep durch 
die Gegend! 

No Crash, please! Sie geben sich 
auf eine Höllenfahrt, die Ihr gan¬ 
zes Fahrkönnen verlangt. Etliche 
Hindernissen müssen übersprun¬ 
gen werden. Dies geschieht, in¬ 
dem Sie den Joystick nach oben 
bewegen. Neben Steinbrocken 
tauchen auch Karaterseen auf, die 
ebenfalls übersprungen werden 
müssen. Haben Sie dies alles im 
Griff, können Sie auch noch den 
über den Wolken fliegenden Vo¬ 
gel abschießen (Feuerknopf). 


Besonders interessant ist die Tat¬ 
sache, daß dieses Spiel auch zu 
zweit gespielt wrden kann. Beide 
Spieler wechseln sich dann ab. 

Ein Tip: 

Wenn der See und ein Stein un¬ 
günstig beieinander liegen, kann 
der Joystick nach links bewegt 
werden. Der Stein wird dann 

schneller. 

Die BREAK und die CTRL/ 
SHIFT/ESC Funktionen sind aus 
spieltechnischen Gründen ausge¬ 
schaltet. 


HORROR 

DRIVER 


lOO * *********** 


HO ’ t « 

120 * • HORROR DRIVER » 

130 * * * 

140 * * <c> DY NKP * 

150 4 * * 


160 * ******************** 

170 * 

180 * ******* 

IBS g SYMBOLE 
190 1 ******* 

195 * 

200 SYMBOL AFTER 256iMEMORY liA3FF»SYN 
BOL AFTER 32 

210 SYMBOL 40,0,54,99,103,99,115,99,5 
4*SYMBOL 42,0,54,99,103,99,115,99,54 
220 SYMBOL 49,0,60,108,12,12,12,12,59 

230 SYMBOL 50,0,54,99;3,U9,96,99,119 
240 SYMBOL 51,0,54,99,3,22,3,99,54 


250 SYMBOL 52,0,99,99,99,55,3,3,3 
260 SYMBOL 53,0,119,99,96,110,3,99,54 

270 SYMBOL 54,0,54,99,96,118,99,99,54 
280 SYMBOL 55,0,119,99,3,6,12,12,12 
290 SYMBOL 56,0,54,99,99,54,99,99,54 
300 SYMBOL 57,0,54,99,99,54,3,99,54 
310 SYMBOL 65,0,54,99,99,119,99,99,99 
320 8YMBQL 66,0,110,99,99,118,99,99,1 
18 

330 SYMBOL 67,0,54,99,96,96,96,99,54 
340 SYMBOL 60,0,116,102,99,99,99,102, 
116 

350 SYMBOL 69,0,54,99,96,116,96,99,54 
360 SYMBOL 70,0,54,99,96,116,96,96,96 

370 SYMBOL 71,0,54,99,96,102,99,99,54 

3B0 SYMBOL 72,0,99,99,99,119,99,99,99 
390 SYMBOL 73,0,24,24,24,24,24,24,24 


400 SYMBOL 75,0,99,99,102,116,102,99, 
99 

410 SYMBOL 76,0,96,96,96,96,96,99,54 
420 SYMBOL 77,0,54,107,107,107,99,99, 
99 

430 SYMBOL 70,0,115,107,107,107,107,1 
07,103 

440 SYMBOL 79,0,54,99,99,99,99,99,54 
450 SYMBOL 00,0,118,99,99,110,96,96,9 
6 

460 SYMBOL 02,0,118,99,99,110,99,99,9 
9 

470 SYMBOL 03,0,54,99,96,54,3,99,54 
480 8YMB0L 04,0,126,90,24,24,24,24,24 

490 SYMBOL 05,0,99,99,99,99,99,99,54 
500 SYMBOL 06,0,99,99,99,99,99,54,20 
510 SYMBOL 87,0,99,99,99,107,107,107, 
54 

520 SYMBOL 09,0,99,99,99,54,20,20,20 


11/86 
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Programme 


S30 SYMBOL 74,0,119,99,3,3,3,99,84 
940 SYMBOL 97,1,3,1,Al,67,25,40,24 
SSO SYMBOL 98,12B.B0,144,232,194,1S2, 
60,24 

S60 SYMBOL 100,1,3,1,61,91,61,24 

S70 SYMBOL 101,128,60,144,232,218,188 

»24 

5B0 BYMBOL 102,0,0,0,Oj1,7,15,63lBYMB 
OL 103,0,0,0,0,129,207,2SS,2SSl8YMB0L 
104,0,0,0,0,128,192,240,282 
S90 SYMBOL 108,63,31,IS,SiSYHBOL 106, 
288,288,288,288,207,61SYMBOL 107,284, 
282,248,224,192 

600 SYMBOL 108,132,206,288,288,2SSl8Y 
MBOL 109,33,118,288,288,288 

610 SYMBOL 110,0,0,0,0,24,60,60,24lSY 

MBOL 111,0,0,288,253,255 

620 SYMBOL 112,0,33,132,33,10,64,21>B 

YMBOL 113,16,64,4,16,33,20,66,8 

630 SYMBOL 114,16,56,60,122,255»SYMBO 

L 115,0,4,10,255,124,56,56,16 

640 IF HDH-t THEN HDH*=Oi RETURN ELSE D 

IM 0(16)I80T0 2600 

648 * 

680 ’ «■■■■■«■» 

688 * VARIABLEN 
660 4 ********* 

670 IF RIMO THEN DIN 8(200) ,8*(200) ,T 
Et(40),NA*(22)iOOSU6 1 3700 
680 SC0(D-0iLIVl*3iMIL(D-49.9aIF HI 
T-2 THEN 8C0(2)-0lLIV2«3aMIL(2)-49.9 

690 YPO-lGiYPL-112iPLAY-liBEX-39»SPEE 
D INK 1Ö,10 iARE-1 
695 ' 

700 * **************** 

705 * BILDSCHIRMAUFBAU 

715 • 

720 CLS 
730 PEN I 

740 WINDOW #1,1»40,1,6*PAPER *1,OlCLS 
#1 

750 WINDOW #2,1,40,20,25bPAPER #2,0iC 
LS »2 

760 CL8lCLB#laCLS#2aINK 1,Ol INK 2,0aI 
NK 3,0 

770 PRINT41iPRINT#1,"PLAYER1 H 

IGH PLAYER2"iPRINT#2aPRINT#2iP 

RINT#2, M HILES TO 60 HILES TO 

B0"iPRINT#2iPRINT#2, M (c) 1986 BV 
MKP , PUBLI6HED BY USW" 

780 LOCATE 9,2iPRINT USING"**###"|SCO 
(DiLOCATE 21,2aPRINT USING"**#«# N |HI 
GHILOCATE 36,2cPRINT USING"**»##"jSCO 
(2) iLOCATE 15,22iPRINT USING"«#.##"|M 
IL(DILOCATE 36,22sPRINT USING"##.##" 
|MIL(2) 

790 FOR ItJS-l TO LIV1*3 STEP 3iLOCATE 
0+ZUS v 4tPRINT"ab"|iNEXTsFOR ZUS-1 TO 
LIV2*3 STEP 3iLOCATE 32+ZUS,4aPRINT” 
ab"|«NEXT 

800 LOCATE l,6aPRINT STRING#(40,154)| 
iLOCATE 1,20IPRINT STRING#(40,154)| 
810 LOCATE 1,19 iPEN 3tPRINT"lmlmlmlml 
Ml ml ml ml ml ml ml ml ml ml ml ml ml ml ml m" 11 PEN 
1iLOCATE 5,8aPRINT"fgh 

fgh“tLOCATE 5,9iPRINT M iJk 
fgh 1Jk H iLOCATE 18,10iP 

RINT"ijk" 

620 PLOT O,260,2iDRAW 110,200aPL0T 50 
,150iDRAN 200,265:DRAW 320,1601PLOT 3 
00,180iDRAN 410,275xDRAN 550,150iPLOT 
530,170sDRAW 640,260 
630 LOCATE 10,YP0iPRINT"ab n »iPEN 2aL0 
CATE 2,19 iPRINT"oo"iPEN liINK 1,26a IN 
K 2,11a INK 3,9 

840 IF PLAY*1 THEN LOCATE I3,22iPRINT 
CHR#(243) ELSE LOCATE 34,22aPRINT CH 
R*(243> 

645 ' 

B50 ' ****** 

855 * FAHREN 
860 * ****** 

B65 * 

870 IF INKEY(27)-O THEN GOSUB 2000 


880 IF SPM-O THEN LOCATE 10,lBlPRINT" 
ab"| 

890 IF TEST(165,YPL—8)*2 THEN GOSUB 1 
500 

895 IF TEST(165,YPL-25)-2 THEN SCO(PL 
AY)—9CO(PLAY)+25 

900 IF JOY(0)“1 AND SPE-0 THEN BEW-la 
YPL*120 

910 IF JOYCO)*4 AND 5PE*0 AND 8*0 THE 
N BRE=BRE+liIF BRE=3 THEN BRE*0aB*0iB 
OSUB lOOO ELSE GOSUB llOO 
920 IF BEW-I AND SPE*0 THEN LOCATE IO 
t 101PRINT" "|tLOCATE 10,17iPRINT"ab" 
SiSOUND 1,60,10,1,2,2a BEW*0iSPE*l 
930 IF SPE-0 THEN LOCATE 10 v 16aPRINT" 
de" 

940 IF ST0*5 THEN STO*OaYPL-112iSPE-O 
iSPR-1 

950 IF SPR-1 THEN LOCATE 10,17iPRINT" 
"IiLOCATE 10,lBtPRINT"ab n jiGPR-0 
960 IF SPE-1 THEN BTO-8TO+1 
970 GOSUB 2200 

980 IF BRE>2 THEN 990 ELSE GOSUB lOOO 
985 IF spe-O THEN LOCATE 10,18aPRINT" 
ab" | 

990 FOR HA*12 TO B STEP-liSOUND 2,BOO 
3,HA,0,0,15aNEXT HAlGOTO 0^0 
995 

lOOO * *»«»»*«** 

1005 ' SCROLLING 
1010 * ********* 

1015 ' 

1020 ILSCR0LL,B,9,10,11,12,13,14,15,1 
1030 IL8CR0LL,19 

1040 IF BER*0 THEN IF INT(RND«10)<7 T 
HEN BER*1 

1050 MIL(PLAY)«MIL(PLAY)-O.1«IF HILCP 
LAYXO THEN 2350 

1060 IF SCO(PLAY)>HIGH THEN HI6H*SC0( 
PLAY) 

1070 LOCATE 15,22iPR 1NT USING 11 «#.##"| 
NIL(l)iLOCATE 36,22sPRINT USING"##.«# 
"|MIL(2) 

1080 IF BER-1 ThEN GOTO llOO 
1090 RETURN 
1095 ' 

llOO # *********** 

1105 ■ STEIN KÖNNT 
11IO 1 *********** 

1115 ' 

1120 LOCATE BEX+1,ISiPRINT" "piPEN 3l 
LOCATE DEX, lBtPRINT >, n"| aPEN 1 
.1130 BEX=BEX—1 

1140 IF SCO(1)>99999 THEN LIV1-LIV1+1 
ELSE IF SCO(2)>99999 THEN LIV2-LIV2+ 

1 

1150 IF BEX*1 THEN LOCATE 2,18tPRINf" 
"|iSCO(PLAY)*SCO(PLAY)+100a BER*0iBEX 
*39 

1160 LOCATE 9,2aPRINT USING"**###"jSC 
□(l)sLOCATE 21,2 iPRINT USINB H **ft##"|H 
IGHiLOCATE 36,2IPRINT USIN6"**ft## H |SC 
0 ( 2 ) 

1170 IF BEX*10 AND SPE*0 THEN 1500 

1180 IF BEX*9 AND 8PE*0 THEN 1500 
1190 RETURN 
1195 ' 

1200 * ********* 

1205 * HIGHSCORE 

1210 ' fit*****«« 

1215 ' 

1220 POKE &B4E8,255s MODE 1 
1230 S*101iF0R A*1 TO 100aIF SCOCPLÄY 
)>S(A) THEN 6*AiA*100 
1240 NEXT 

1250 IF S>100 THEN 1300 

1260 FOR A*99 TO S STEP -li&(A+D«SCA 

) 

1270 IF A<10 THEN S*(A+D-S*CA> 

1280 NEXT 

1290 S<8>—SCO(PLAY)aIF S<11 THEN S*(S 
>="" 

1300 CLS 

1310 A*«INKEY#iIF A*<>"" THEN 1310 


1320 LOCATE 14,laPRINT"HIBH-SCORES" 

1325 SUOOf GOSUB 3300 

1330 FOR A*l TO 10:D*A 

1340 IF D>1 AND S(B)-8(B-D THEN B*B- 

liGOTO 1340 

1350 LOCATE 7,A+14aPRINT DEC*((B,"## N 

)|"." 

1360 LOCATE 11,A+14iPRINT DEC#((S(A>, 
“**###«) 

1370 LOCATE 18,A+14iPRINT B*(A)|" 

N 

1380 NEXT 

1390 IF S<10i AND S>10 THEN LOCATE 13 
,1liPRINT"YOUR LEVELI ";S 
1400 IF S>100 THEN LOCATE 3,lliPRINT" 
YOU AREN'T DETTER THEN LEVEL lOO !" 
1410 IF S<10 THEN LOCATE 5,lltPRlNT"C 
ONGRATULAT ION S"aSUC*liG 
OSUB 3350sS#(S)*LEFT#(A#,22)iLOCATE 1 
8,S+14tPRINT S*(S) 

1420 LOCATE 12,13iPRINT" TAKE A KEY 

H 

1430 POKE B4EB v O 

1440 IF INKEY#<>"" THEN 1440 ELSE CAL 
L StBB06 

1450 IF NIL(PLAY)<0 THEN RETURN 
1460 IF MIT-2 AND PLAY-1 AND LIV2M) T 
HEN PLAY-21GOTO 700 

1470 IF PLAY*2 AND LIV1>0 THEN PLAY-1 
IGOTO 700 

1480 IF MIT-1 AND PLAY-1 THEN 1650 

1490 GOTO 1650 
1495 * 

1500 * ************* 

1505 ' AUTO VERLOREN 
1510 ' ************* 

1515 ' 

1520 BER—OlDEX*39aV0B*0iVD*OiSUS—O 
1530 IF MIT-2 AND PLAY*1 THEN LIV1-LI 
VI—lxIF LIV1>0 AND LIV2>0 THEN GOSUB 
2100tPLAY-2:GOTO 760 

1535 IF MIT-1 AND PLAY-1 THEN LIV1-LI 
VI—liIF LIV1>0 THEN GOSUB 2100tG0T0 7 
60 

1540 IF PLAY-1 AND LIVKl THEN 1590 

1550 IF MIT-2 AND PLAY-1 AND LIV2<1 T 
HEN 760 

1560 IF PLAY*2 THEN LIV2—LIV2—1iIF LI 
V2>0 AND LIV1>0 THEN GOSUB 2100iPLAY- 
11 GOTO 760 

1570 IF PLAY=2 AND LIV2<1 THEN 1620 
15B0 IF PLAY-2 AND LIV1<1 THEN 760 
1590 PEN liLOCATE 1,4aPRINT“GAME OVER 

ji' 

1600 GOSUB 2100 
1610 GOTO 1200 

1620 PEN 11LOCATE 32,4aPRINT"GANE OVE 
R" 

1630 GOSUB 2100 
1640 GOTO 1200 
1645 ‘ 

1650 * ********* 

1655 ’ GAME OVER 
1660 J ********* 

1665 * 

1670 CLStMODE 1:SYMBOL AFTER 256 
16G0 LOCATE 12,12tPRINT"ANOTHER GAME 
(J/N)" 

1690 IF INKEY(45)*0 THEN RU-laWDH-laV 

0=1tGOSUB IOOiGOTO 2600 

1700 IF INKEY(46)-O THEN 1750 ELSE 16 

90 

1710 GOTO 1700 

1750 PEN liINK 1,26tPAPER OaINK 0,0iM 
ODE liEND 
1795 * 

1600 ' ******* 

1805 ' MC—CODE 
1B10 ' ******* 

1815 ' 

1820 RESTORE 1870 

1830 FOR n—6A400 TO &A4C3 

1B40 READ a*tPOKE n,VAL ("«"+8#) 

1650 NEXTiCALL &A400 


TI/86 


48 


(Hilft 












1B60 A*='*”i RETURN 

IB70 DATA Ol,0» t a4 v 2l,0 a .«4 cd dl 

f ^lt C9 ? 4 '■ cZ ' ' 47 >** .'^3,7b ,I 

53 43 B? i* J “’* 4 : 5 °•SZ.49,4»,d4,4c 

Öo^9 D M fl ,2 d it? '2°i* 1 - ». <«. 23,2d, 26, 

so.oo^^^sl^ö^a 9 ’'"’ - 2I ’ 

«M™ O “* 02 - O6 - 5O -*'S.ö=,7., 12,23, 
1910 DATA d1,7a,d6,0B,37,ei ,od 20 «d 

loJSLJSJ* 7c - dA - 0B - fi7 .c» , to.-s.dl ;<w, 

1930 DATA f 5 f cd # 33 t *4 f 11 t OO v cO«19 06 
•f 3 * 01 * 4f »°°t l« f fcd,bO, 12,0 

1940 DATA 

^ AS ^ ,, ? h : 01 ' 4f > 00 ' i **« d t^I^o 

!nE2 ,0ö,09,cl ■ * * 3d,20,*0,c9 

1950 DATA d5,Cd,60,4^1,77^9 

2000 ' **«*»» 

2005 - PAUSED 
2010 4 ****** 

2015 4 

»SSi«™ 1A,4,PAPER ***** 0.PRINT- 
2030 IF INKEY <521< >0 THEN 2030 ELSE 2 

2040 L S CATE l *» 4,Pft PER OlPEN liPRINT- 

2050 RETURN 
2095 4 

2100 4 ***** 

2105 ' CRASH 
2110 4 ***** 

3*15 4 

?B^T Q ^. i ?’ ,8,PR,NT, '” Bl0UT «*00 

™£$**Xo*il 0 8 4 - 

2150 NEXT NA 

2160 OUT ltBCOO,8iOUT lcBDOO.2 
2170 RETURN 1 

2195 4 

2200 4 •*****•«« 

2205 4 VOGELFLUO 
2210 4 *»*«*•*** 

2215 4 

2220 VD=>VD+11 IF VO>40 THEN VO-l.LDCAT 
E 40.7IPRINT- "(iVOS-O U AT 

2230 IF VOM THEN LDCATE VO-1.7.PRINT 

r»» E /L B !!C2TPS L0CATE VO-7-PRINT» 

!I *' EI -^ E LOCATE V0,7|PRINT"«"I 
2250 IF BIL-0 THEN BIL-I ELSE BIL-0 


THFM | I nn™ , ?i” 16 AND SPE "° ftN «> BC-0 
LDCATE 11,17i PRINT"q"* t SC*I ■ SOUN 

°200lBOSUB 2320lIF V0«11 THEN SUS=1 
2270 IF BUS-1 THEN SCU (PLaVT-SCO^Ay 
)+5Öi LOCATE 11,7t PRINT **p" | t BQUN=*500i S 
OSUS 2 3201 VOB^o ■ vo« | s SUS“0 

THEN BSP *0%d™ BSP=BSP+1 ' IF SSP >= 

2290 IF SPE-0 THEN LOCATE 11,17.PRINT 

2300 IF SC-1 THEN LOCATE 11,7.PRINT" 
2310 RETURN 

?SS»£ÄI,IS ” * 

2330 NEXT HA RETURN 
2345 4 

2350 4 *♦»*#***# 

2355 4 BESCHAFFT 
2360 4 «**•**«•# 

2365 4 

2370 CLSiRESTORE 2400 

2360 SCO <PLAY>*=SCO* PLAY)+1500l IF SCOC 

PLAY)>HI0H THEN HlQH«ÖCO<PLAY> 

2390 FOR TEX=i TO 24tREAD TE#(TEX> 

2400 «TA V D U,- ".H.A.V.B." R, 0 

,K,E,N,” »,« >*,» ,A,R,E,A 


2410 NEXTiFOR FLU«1 TO 24 
2420 !F FL«0 THEN LOCATE 9+FLU.lOiPRl 

24Tn tr L « E J9+FLU, IOiPRINT"* 1 * 
2430 IF FL-0 THEN FL»t ELSE FL=0 

F P | 0 || L ^ A l5 t B+f " LU t * 0|P ^1NT TE# (FLU) 11 

2450 U 7f 4 arf E ? t5*^f TE *| 

2450 IF ARE«! THEN AR#« W BT** 

* F ^-2 THEN AR*-"NO" 

2470 IF ARE-3 THEN AR*-»RD* 
f F THEN AR#- "TH* 

T ^EaK«™ Z S i T ^ DMTE 24.IO.PRIN 
»-«»PRINT AR* 

F« 0 T^TÖ*!".’w^i 5,80ÜN,, 1 • 0 ’ S • 0, 

l2iPRINT"C0NBRflfuLATIWB» 3,L0CflTE l5 * 
~ 3 ?? THEN 2=30 ELB S 2520 

l ?Su1?h1 ^: L0CATE * 2 .**.*ukt«i«l 

R^ST“ THEN LWWWW El -ÖE 

THEN «IMPLAV1-49 
i?iBEX»39iFO»ii0OTO 700 

l%°dlo lNKEYl4S> ’° TI * N 80SUB 1200,6 

2570 BOTO 2330 

2595 ‘ 

2600 p ********* 

2605 4 TITELBILD 
2610 4 «*****»»* 

2615 4 

•sr*»- - Ä.«.™ 

OhI2m»?I^ l ' A,PRIMT CHR*«143>+- «♦ 

^!cHR*<14T>f^l2?^ a43,CHR * <1431+ " 

+CHSV?14f^2i????i 143,CMR * a43 >*" - 

j^!Sfii 4 i ) °j R *< 143 >CHR»a43)4-» »+C 

HR#(143)CHR#(143)**> n *CHR#(143>CM»* 

(143)CHR#(143) ^««»«143>CHR# 

1 ; 7 : PRIMT CHR»«I43>*- 
CHR»(143) + h "+CHR# (143) + * 

+ 4, +CHR# < 143> + * « + CHR#(U3^" i 

+CHR#(143)+* "4CHR*(143)+« “+CHR#(t 

43> + » « "+CHR*tl43>+" M +CTO#C143^ 1 

”+CHR*U43) ^*(143) + 

2450 LOCATE l.BiPRINT CHR*(t43>CHR*Cl 

-+CHR* (|^^ R411431+I ' “-«HR*a43» + - 

«™=?? ATE 1 - 6,p RINT CHR*(143ICHR*(1 
- ^*i1?«? R ! a43,+ " " + CHR#U43)* 

" ^^ 6HR * tl43 »CHR*<143 

R*U«>!- . i r^ HR *° 43,CHR * <143>CH 

VL. 14 ?* •+CHR#<143>+“ "+CHR*U43 

MAO . !E^? <143 »CHR*a43»CHR*<143) 

CH»2.V«? T n 1 -’ ,PRINT CHR*<I43»+" «+ 

0*»a43)+“ "+CHR*<143)+- "-»CHR*(|4 

3 *j +CHR*<143|+“ “+CHR*(143)+» * 

iT? R !f a43,+ ” " + CHR*(143)+" «tCHRXt 

i^R*a;sr (iw+ " - +o «*‘ i43 >^ 

+cHR*(?^?yf. i,1 ?* PRINr CRR** 1 «)*» ■ 

"Jc^* . *‘ +C ^?Ü 43>CHR * <* 43 » *" 

B*..!,^! 1143 ’ +CHR*t|43)+* "+c H 

JCHR*««)*» 40 ^*^ 143 ’*“ "+CHR*(143 

143)* <14S> ■+C«»*<I43» + - “+CHR#< 

143?cH|S?IIt?IJ 3,P !J INT CHR *‘ 14 3»CHR*( 
ICHR*V?14^? > - +CH R*<I 4 3»CHR*<143 

)CHR#(143>+" N +CHR#(143)+* ”+CHR*( 

I«)*" -+CHR*(1431*- -icHR*«I«?Si 

«™ CHR * a43,CHR * <143 >+*^*aSi« 

43)CHR*1143)CHR*<1431 ' 

fcS«V?S5T E - 9, iiL PRI, * T CHR *‘ 14 3)+" - 

+CHR*(143)+ 11 +CHR*(143) +" "-»CHRBd 

4 3)+* "+CHR*(143)+" -+CHR*<143)+" 

«^1 U43>+ ’ ■♦«WtMBlJ 
HR#<143) +■ ***CHR#(143) 

+c»«V?S5T E - 9,15,PRINT CHR*«!«»*- - 

!^* <143,+ " "+CHR*<143)CHR*U43)CHR 

41143 I + + Ct*I*<143>+» l> 4CHR*(1431 

43)CHR*^lSJ» < i^ 3>+ I ^9 W *‘ 143 > C HR*‘l 

CHR*(tJ;» m +CHR*<143)CHR*C143) 

2710 LOCATE 9,lAiPRINT CHR*(143)+- > 


prosramme 

♦CHR* (143) ♦» ■‘♦CHR*(1431« a *«CHR*(1 

43)+- "+CHR*(143)+- -♦EHR*(143>+" 

*«W»*(143) + - “*CHR*(143) + - »4C 

)«»*(I43)+* < *+CHR#( 143) 

143?cHR*?IStTiJ 7 ' <143,CHR * ‘ 

143IO#^#C143)+- +CHR# < 143) +* "+f»| 

R#*143)+" "+CHR#(143) +** *+CMR#<I4 

CHR*(143)♦- -+CHR*(143)*• «+CHR*<14 

2730 PEN 1.LOCATE 31,tiPRlNT*4ah n il nr 
ATE B.2,PRINT-foh-,LOCATE 31 2?»^ 
Uk-.LOCATE 5,3 ?PRInF7jS ’ 

‘»LOCATE l7,4.PRINT*lJfci ^ 

2740 LOCATE 37 v 8iFftXNT a *b‘t LOCATE 1 1 

S.PRINT-PLAVERl-.HIT-l ’ 4 - OCATe 

A 7 ^- L ^IL 1 2’ ZO,P,?,NT *“ PV « 1 »IT 190 
C T K P R O 0 U 

2700 l£o i g& U * 2 ’ U,M « 3,A 

2790 ILBCROLL,1,2,3,4,5 

Et *«T6 37,0,PRINT- 
LOCATE 37 a Bt PRINT" ab* 

2B10 IF AUT-0 THEN AUT-1 ELSE AUT-0 
2830 IF INKEY(64)-0 THEN LDCATE 1 15i 

PfilNT-'PLAYERl-tHFT-I UÜC « TE 

2940 IF INKEY(63)«O THEN LDCATE i 
PRINT-PLAVeR2-.HIT-2 ,1S ' 

,,aV<0, "* 4 THE * -REHAINU),80 

2040 RETURN 
209S * 

2900 * ••«••••»•• 

2905 * SOUNDTRACK 
2910 * mh.i i ih 
2915 * 

2920 BOSUB 3140 

ylix—&.t-2ii-HENT -2,1,3,2,1, 

2940 ENV 1,1,15,1,15,-1,Sieht -1,1,1, 

4 f 1 < ”"i t 4i ENV 2 t -l 1 1 6000 
2950 IF t«2 THEN t*4 ELSE t-2 
2960 READ ai IF a«0 THEN IF t«4 THEN R 
ESTORE 30601BOTO 2950 ELBE RESTORE 30 
40 im—SiBOTO 2950 

»TO IF «Ol THEN SOUND 130,.«t,90,7, 


2tl _-i 

W7 sä D 1 :i°«>. 2 °.«.i.2.i-i+i.,F 

2990 FOR UNTERM TO SO. NEXT UNTER 
300; N~M+1.IF M»4 THEN «■OigoBUB 3020 


3010 OOSUB 2790.OOTO 29A0 

S^JrT v “ 2,aDUND 4 -°- 2 °- 14 - 

ÜOÄ"« y “ l,8aJND 4 • 0 ’ 20 • 14, 

3040 “ TA *.*»!,*,1,1,1 

3050 DATA 1,1.1.1.1,1,1,1.1,,,1,,,,,, 

30*0 DATÄ I.1.1,40,1,53,1,47,1,47,1,5 

3 - 1 - 4 7?* ,4 3,1,45,1,45,1,40.1 

*2® 3B, 1,38,1,45,1,47, i ,53 t 1,1, 

45*1’ii ?'ii 4 r’™ 47> 1 ,S3 * 1 * 47 * 1 * 45 * *. 

,38 ' 1 * 38 » 1 * 45 , 1 , 47 .1,53 
2°f , 4 5 #, T A * * J ’i; 32 *!- 30 - ‘.27,1,27,1,4 
?*« 4 ? t ii 3 ?-Ai 3 ? , Ai 32 * * ,30. i,27,1,27, 
1 f *511,47 fl,53 T 1,53 

«*7 « T ? ii*?'« 83 ’ 1 ’ 47 * * * 47 * * .33,1, 

M; 4 ?i 1 ’ 45 * , ' 45 * l ' 40 - 1 > 38 .‘. 36 -», 4 5 
* *60 

3100 DATA 1,1,I^ 60 ,1,43,1,«, 1,71,*, 6 

“t**71|1,BO,1,80 

?ii?6r TA 1 1 -* 3 - * ■* 3 - * *71,43 

« In ii' 80 ’ * ,fl0 ’ 1 - 71 - 1 .43,1,6 
—* *71,63,60,60 

3 ä?°.°2y A . 'ii ' 1 •*• a °* 1 - 33 - 1 - 47 -*- 47 .* 

8^^*45 * 3 - 1 - 43 .*-«.*.40, 1,38,1,3 

®l 1 *95,1,47, 1,60 

3140 DATA 1,1,1,1,1,1,1 | 

3150 DATA 0 

3160 DATA 470,470,470,470,560,540,560 

f 3oB 


©®«Rip®fre mit 















Programme 


3170 DATA 319,319,319,319,379,379,379 
,379 

31 BO, RE6T0RE 3160 

3190 FÜR 1-1 TO I61READ 0(1) iNEXT i 

3200 RESTORE 3040 
3210 RETURN 
3293 • 

*3300 * 

3303 ' GRAFIK FUER HIGHSCORE 
3310 * 

3320 SYMBOL 118,0,0,154,210,210,210,1 
35,OiSYMBOL 119,0,0,210,133,219,133,2 
02,0 

3330 LOCATE 7,4«PRINT”A B C D E 
FSH I H ILOCATE 7,6«PRINT"J K L 
M N O P R S”iLOCATE 7,8«PRINT"T 
U V H Y - . v w" 

3340 IF SUC-0 THEN RETURN 

3350 BUX—911BUY—334iBUA—BUXiBUB—BUY1N 

-OlBX-OiBY—OiFUL—O 

3360 PLOT BUX,BUY,liDRAH BUX+25,BUY«D 
RAN BUX+25,BUY-22«DRAH BUX,BUY-22«DRA 
N BUX,BUY 

3370 IF JOY<0)—8 AND BUX<430 T)CN BUX 
-BUX+48«BX—BX+1« BE-1 

3300 IF JOY(0>—4 AND BUX>93 THEN BUX 
-BUX—40«BX—BX—liBE-1 

3390 IF JOY(O)—2 AND BUY>310 THEN BUY 
-»BUY-32«BV-BY+11BE-1 

3400 IF JOY(O)—1 AND BUY<330 THEN BUY 
—BUY+321BY—BY—11BE-1 
3410 IF JOY(0>—16 THEN 3450 
3420 IF BE-1 THEN PLOT BUA ,BUB,OlDRAN 
BÜA+23,BUBiDRAN BUA+25,BUB— 221 DRAN B 
UA,BUB—22a DRAN BUA,BUBiBUA-BUXiBUB-BU 
YsBE—0 

3430 FOR TIM—1 TO SOiNEXT TIM 
3440 GOTO 3360 
3450 IF N>12 THEN FUL-1 
3460 IF BX—O AND BY-O THEN NA*(N)-"A« 
ELSE IF BX—1 AND BY-O THEN NA*(N)-”B 

H 

3470 IF BX—2 AND BY-O THEN NA4(N)«"C" 
ELBE IF BX—3 AND BY-O THEN NA4(N)-"D 

n 

3480 IF BX—4 AND BY-O THEN NA*(N>-"E" 
ELBE IF BX—3 AND BY-O THEN NA*(N)-”F 

N 

3490 IF BX—6 AND BV-0 THEN NA*(N)-"G" 
ELSE IF BX—7 AM) BY-O THEN NA*<N)-”H 

H 

3493 IF BX—8 AND BY-O THEN NA4(N)- N I” 
3300 IF BX-0 AND BY-1 THEN NA4(N>- ll J ,e 
ELSE IF BX—1 AND BY-1 THEN NA#(N)-"K 

3310 IF BX-2 AND BY-1 THEN NA*<N>-"L n 
ELSE IF BX—3 AND BY-1 THEN NA*(N)« H M 

H 

3320 IF BX—4 AND BY-1 THEN NA*CN>-”N" 
ELSE IF BX—5 AND BY-1 THEN NA*(N)- m O 

■ 

3530 IF BX-6 AND BY-1 THEN NA*<N)« N P" 
EL8E IF BX-7 AND BY-1 THEN NA4(N)-**R 

•* 

3533 IF BX—8 AND BY-1 THEN NA4(N>—"B" 
3340 IF BX-0 AND BY-2 THEN NA4(N)-**T M 
ELSE IF BX=1 AM) BY-2 THEN NA4(N)-"U 

N 

3350 IF BX-2 AND BY-2 THEN NA*(N>«"V 
ELSE IF BX—3 ÄND BY-2 THEN NA*<N)-”H 

M 

3560 IF BX—4 AND BY-2 THEN NA*<N)-"Y* 
ELSE IF BX—3 AND BY-2 THEN NA*<N>«"- 
" ELSE IF BX-6 AND BY-2 THEN NA*(N>- a 

m 

3570 IF BX-7 AND BY-2 AND N>0 THEN N- 
N—1«NA4(N)— M ** 

3580 IF BX—8 AND BY-2 THEN A4-NA*(0> + 
NA6(1)+NAX2)+NA*<3) +NA$(4>+NA$(S)+MA 
*(6>*NA*(7>+NA*<8>4NA*<9>+NA*<10>+NA* 
(11 )+NA4(12)+NA4( 13) iFOR CLE-0 TO 13« 
NA*(CLE)=" "iNEXT«GOTO 3650 
3590 LOCATE 13+N,13aPRINT NA»<N) 

3600 IF FUL-1 THEN PRINT CHR*(7>iN-N- 
I1FUL-O1LOCATE 26,13iPRINT H n «NA*<13) 


S NH 

3610 IF NA4(N)<> 11 * AND NA»(N><>"“ TH 

EN N-N+l 

3620 GOTO 3360 

3650 FOR 2—LEN(A4) TO 12tA*-A*+ H "iNE 
XT 

3660 RETURN 
3693 # 

3700 * ********************* 

3703 ' NAMEN FUER HIGHSCORES 
3710 # ********************* 

3713 ■ 

3720 RESTORE 3760 
3730 FOR 1-1 TO 10 
3740 READ 8(1),S*CI) 

3750 NEXT 

3760 DATA 1600,MICKEY MOUSE,1325,MC D 
ONALD, 1130, LUPO-FACE,995, DONALD DUCK, 
720,BIG-CHEF 

3770 DATA 580,0LD-SHATTERHAND,450,JOE 

-COOI_,425,J0ES-BRQTHER,3B0,B0QFY—B 

OY,200,AGENT.-KOJAK-. 

3780 RETURN 


CHECK VliPRUEFSUMMENl 

1070- 

lOBOi 

339B9 




1090- 

1095« 

506 

ZEILENNR .1 SUMMEN 

llOO- 

1105« 

11949 

lOO- 

HO« 

13244 

lllO- 

1115« 

4928 

120- 

130 1 

15657 

1120- 

1130« 

71170 

140- 

150« 

10890 

1140- 

1150« 

70069 

160- 

170« 

12110 

1160- 

1170« 

79942 

180- 

1851 

6535 

1180- 

1190« 

32249 

190- 

195« 

2028 

1195- 

1200« 

3794 

200- 

2101 

28117 

1205- 

1210« 

9164 

220- 

2301 

32339 

1215- 

1220« 

6005 

240- 

2501 

26107 

1230— 

1240« 

44519 

260- 

270i 

37763 

1250— 

1260« 

14104 

200- 

2901 

29042 

1270- 

1280« 

42947 

300- 

310« 

37409 

1290- 

1300« 

28603 

320- 

3301 

41702 

1310— : 

1320« 

33996 

340- 

350« 

41772 

1325- 

1330« 

27695 

360- 

370« 

40519 

1340- 

1350« 

68590 

300- 

390i 

33416 

1360- 

1370« 

62071 

400- 

4101 

41504 

1300- 

1390« 

13403 

420- 

430« 

43473 

1400- 

1410« 

75573 

440- 

450« 

41239 

1420- 

1430« 

18590 

460- 

4701 

38094 

1440- 

1450« 

41570 

480- 

490« 

33647 

1460- 

1470« 

43593 

500- 

510i 

38694 

1480- 

1490« 

32406 

520- 

5301 

28235 

1495- 

1500« 

6230 

540- 

550« 

38452 

1505- 

1510« 

1570B 

360- 

570a 

34397 

1515- 

1520« 

10071 

580- 

590« 

60905 

1530- 

1535« 

86475 

600- 

610« 

65940 

1540^ 

1550« 

35282 

620- 

630« 

109717 

1560- 

1570« 

70565 

640- 

643« 

53942 

1580- 

1590« 

52439 

650- 

655k 

9035 

1600- 

1610« 

1471 

660- 

670« 

20833 

1620- 

1630« 

16704 

680- 

690« 

107313 

1640- 

1645a 

1359 

695- 

700a 

B49B 

1650- 

1655« 

8662 

703- 

710« 

22046 

1660- 

1665« 

3794 

715- 

720« 

523 

1670- 

1680« 

27941 

730- 

740« 

12241 

1690- 

1700« 

28902 

750- 

760« 

28808 

1710- 

1750« 

17502 

770- 

780« 

71524 

1795- 

1800« 

2828 

790- 

800« 

73592 

1005- 

1810« 

6144 

810- 

820« 

22527 

1815- 

1820« 

1021 

830- 

840« 

42331 

1030- 

1840« 

40379 

843- 

850« 

2408 

1850- 

1860« 

60B8 

855- 

860« 

5273 

1870- 

1880« 

95444 

865- 

870« 

13697 

1090- 

1900« 

73270 

000- 

890« 

58327 

1910- 

1920« 

69472 

895- 

900« 

61821 

1930- 

1940« 

74339 

910- 

920« 

56663 

1950- 

1995« 

16714 

930- 

940« 

53516 

2000- 

2005« 

5308 

950- 

960« 

51312 

2010- 

2015« 

2400 

970- 

900« 

25122 

2020- 

2030« 

30779 

983- 

990« 

36865 

2040- 

2050« 

9402 

995- 

lOOO« 

3987 

2095- 

2100« 

2030 

1005- 

1010« 

9238 

2105- 

2110« 

4255 

1015- 

1020« 

20045 

2115- 

2130« 

26188 

1030- 

1040« 

68308 

2140- 

2150« 

53883 

1030- 

1060« 

50132 

2160- 2170« 

7122 


2195- 

2200« 

3794 

2205- 

2210« 

9227 

2215- 

2220« 

43032 

2230- 

2240« 

36710 

2250- 

2260« 

98577 

2270- 

2200« 

50241 

2290- 

2300« 

37214 

2310- 

2320« 

2900 

2330- 

2345« 

4200 

2350- 

2355« 

9029 

2360- 

2365« 

3794 

2370- 

2300« 

14027 

2390- 

2400« 

52638 

2410- 

2420« 

38299 

2430- 

2440« 

67446 

2450- 

2460« 

44317 

2470- 

2480« 

44179 

2490- 

25001112217 

2510- 

2520« 

73514 

2530- 

2540« 

78191 

2550- 

2560« 

23158 

2570- 

2595« 

1664 

2600- 

2605« 

9066 

2610- 

2615« 

3794 

2620- 

2625« 

65410 

2630- 

2640« 

46492 

2650- 

2660« 

57096 

2670- 

2680« 

69011 

2690- 

2700« 

41921 

2710- 

2720« 

57723 

2730- 

2740«114044 

2750- 

2760« 

35747 

2780- 

2790« 

9524 

2800- 

2010« 

97088 

2030- 

2040«107185 

2850- 

2060« 

31270 

2095- 

2900« 

4340 

2905- 

2910« 

10737 

2915- 

2920« 

1046 

2930- 2940« 

72049 

2950- 

2960« 

52986 

2970- 

2980« 

82604 

2990- 

3000« 

80007 

3010- 

3020« 

4283Ä 

3030- 

3040« 

43716 

3050- 

3060« 

40387 

3070- 

3000« 

100506 

3090- 

3100« 

53824 

3110- 

3120« 

60667 

3130- 

3140« 

41012 

3150- 

3160« 

29468 

3170- 

3180« 

29665 

3190- 

3200« 

35847 

3210- 

3295« 

506 

3300- 

3305« 

33172 

3310- 

3320« 

42735 

3330- 

3340« 

66024 

3350- 

3360« 

65571 

3370- 

3300« 

57127 

3390- 

3400« 

50985 

3410- 

3420« 

20090 

3430- 

3440« 

21102 

3450- 

3460« 

39043 

3470- 

3480a 

44634 

3490- 

3495a 

74170 

3500- 

3510« 

46138 

3520- 

3530« 

47591 

3535- 

3540« 

75822 

3550- 

3560« 

66040 

3570- 

3580« 

64533 

3590- 

3600« 

26865 

3610- 

3620« 

24721 

3650- 

3660« 

47198 

3695- 

3700« 

13118 

3705- 

3710« 

33563 

3715- 

3720« 

1448 

3730- 

3740« 

21106 

3750- 

3760« 

58115 

3770- 

3780« 

47431 


★ ★★ 


SO 
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Abgesehen davon, daß das Pro¬ 
gramm seine Funktionen selbst 
erklärt, seien doch noch ein paar 
Worte Uber dieses fantastische 
Spiel gesagt. “Di sc of Tron 1 ’ hat 
nichts mit einer besonderen Form 
von Disketten zu tun. Vielmehr 
mit einem beliebten Freizeit¬ 
sport: dem Frisby. Die vorliegen¬ 
de Computerversion hat aller¬ 
dings einen etwas agressiveren 
Beigeschmack: auf zwei in der 
Tiefe des Raumes schwebenden 
Plattformen erscheint wechsel¬ 
weise eine Person, die es zu tref¬ 
fen gilt. Aber: die Uhr läuft gegen 
Sie. Haben Sie in einer bestimm¬ 
ten Zeit nicht einmal getroffen, 
ist das Spiel vorzeitig beendet. 

Herrausragend: die tolle Grafik 
und die fantastischen Großbuch¬ 
staben. Hier kann der Schneider- 



-,c£- 


0*. 


Programmierer einiges an Tricks 
nir seine Arbeit herausziehen. 


io • «##**#*»**■####** 


20 * ** Diac of TRONN •« 

30 • ** •* 

40 # **(c> by A.N.Soft** 

30 * ** ** 

60 • ** and #t 

70 * ** Lulaa Voi «• 

BO ' •* m 


90 * «»Tal.0711/552775** 

110 t 
120 « 

130 • 

.150 OPENOUT H dum"IMEMORY 19990iCL08E0U 
T 

160 POKE ltB939 f ltC9iMODE 1 

170 INK O v 25iINK l v 16t INK 2 v OlINK 3,8 

tBOEDER OiFOR t-O TO lOOlPLOT RND*640 

,RND«400,RND*4«NEXT 

180 ORIGIN 300,200aDEGiFOR t*0 TO 180 
«HOVE O,OsDRAN 8IN(t#2)*100,C0S<t*2)* 
50,2«NEXT 

190 FOR t»0 TO lBOsMOVE 0,0«DRAN 8IN( 
t*2>*50,C0S(t*2)*25,3«NEXT 
200 FOR t*0 TO 360 STEP 2cHOVE 0,0«PL 
OT SIN(t)ft90,C0S(t>*44,3«NEXT«ORIGIN 
0,0 

210 a9s H DISC ,, ty«270«GaSUB 290 
220 a**"of ":y=*170:G0SUB 290 
230 a4«"TRON"c y*SO* GOBUB 290 
240 POKE 8tB939,lcF3 

230 LOCATE 6 f 25iPEN 3«PRINT"(c> by A. 
H.Soft and Lulsa Völ" 

260 LOCATE 17,1«PEN 2«PRINT"Loading" 
270 LOAD"!" 

280 RUN"!" 

290 LOCATE 1,23«PRINT a* 

300 m» 240—LEN <a$)*16« FOR a*I4 TO O ST 
EP —2«FOR b*0 TO LEN(a*>*16-2 STEP 2« 
IF TEST<b,a> THEN FOR c=0 TO 2«PL0T ( 
c—d)*2+(a+b)*3+x ,y+a*4,2«DRAWR 0,20«D 
RAWR 6,6,3cNEXTaFOR c«-l TO 1 STEP 2s 
PLOTR -2,—2,ltDRAWR 0,c*20sNEXT 
310 NEXT b,atLOCATE 1,25«PRINT STRING 
*<<LEN(a*>>, ")«RETURN 


10000 8AVE H disc*of tron” 
10010 END 

CHECK VlaPRUEFSUMHENi 


ZEILENNR.t SUMMEN 


io- 

209 

26128 

30- 

40« 

19757 

50- 

609 

9132 

70- 

BOi 

15129 

90- 

lOO« 

23575 

1 IO— 

120l 

2 

130- 

150t 

6505 

160- 

1709 

67229 

180- 

190l 

B427B 

200- 

210i 

77554 

220- 

2309 

39084 

240- 

2509 

8155 

260- 

270i 

18236 

200- 

290« 

5432 

300- 

310i 

62115 

10000-10010i 

10528 


8E9AMTCHECKSUMMEi 14087 


10 


20 

'* 

* 

30 

’* Ztlchncn dm 

* 

40 

'» RclUOM 

• 

50 


* 

60 


70 

1 


80 

MEMORY 19990 


90 

POKE *B939,«tC9 



lOO MODE Ol INK 0,0«INK 10,15«INK 12,1 
B«INK 13,6«INK 4,12«B0RDER 26 
110 DEGiORIBIN 0,0 

120 FOR t-123 TO 275«M0VE ISO.tlDRAN 
490,t,10iNEXT 
130 a*0 

140 FOR t-0 TO 124»MOVE 0+a,tiDRAN 64 
0-« , t, 12« i»a+l. 2« NEXT 
150 FOR t=276 TO 400iM0VE 0*a,t«DRAN 
640-a,tia=a—1.2«NEXT 

160 ORIBIN 160,30«FOR t-O TO 190«HOVE 




0,0« DRAN 6IN(t*2)*lB,COB<t*2>*4,OlNE 
XT “ 

170 ORIBIN 480,30« FOR t-O TO 190fMDVE 
O, Ol DRAN BIN (t*2) *1B,C0B ft*2) *4,0« NE 
XT 

1B0 ORIBIN 390,123«FOR tH> TO 190«MOV 
E 0,0«DRAN 8IN(t*2)*9,CQB(t*2)*2,0iNE 
XT 

190 ORIBIN 240,125«FOR t-0 TO 190«MOV 
E 0,0«DRAN BIN(t*2>«9,CQ8(t*2>*2,0iNE 
XT 

200 ORIBIN 160,50«FOR t-O TO 190«H0VE 
0,0« DRAN 8IN(t*2) *30,COS<t*2) *10,139 
NEXT 

210 ORIGIN 480,50«FOR t-0 TO 190«M0VE 
0,OlDRAN 8IN<t*2>*30,C0B(t*2)*lOitEX 
T 

220 ORIGIN 390,135«FOR t-0 TO 190tMOV 
E 0,0«DRAN 8IN(t«2)*16,C08(t«2>*4itCX 
T 

230 ORIBIN 240,135«FOR t-0 TO 190«MOV 
E 0,0sDRAN BIN(t*2)*16,COB<t*2>*4iNEX 
T 

240 ORIBIN 320,360«FOR t-0 TO 360 8TE 
P 2«M-50*8IN(t) «y—30«C08(t> iHOVE 0,0t 
DRAN k, y,IO iNEXT - 

250 ORIBIN 320,360cFOR t-0 TO 360 STE 
P 2 im— 70*BIN(t>iy-20*CQBCt)iMOVE 0 , 0 « 
DRAN n, y,lliNEXT 

260 PRINT CHR4(22)CW4(1) «LOCATE 4,2« 
PEN 4«PRINT"8C9"| «PRINT CHR*(22)CHR*< 
O) 

270 POKE leB939,liF3 

280 FOR 1-0 TO 11 «READ aaPOKE 20000*1 
,ai «EXT« CALL 20000 

290 FOR 1-0 TO lliREAD aiPOKE 20000*1 
,a«NEXT 

300 CL9iPRINT”Abmavan"»8AVE"dlac-plc” 
,b,20000,16384+12 
310 REM and 

320 DATA 1,0,64,33,0,192,17,44,78,237 
,176,201,1,0,64,17,0,192,33,44,78,237 

,176,201 

10010 8AVE”diac-pic"iEM> 

CHECK VllPRUEPBUMHEN« 


ZEILEN«. 9 1 

SUMMEN 

10- 

209 

8706 

30- 

40 t 

20944 

50- 

609 

B70B 

70- 

80« 

727 

90- 

1009 

3B962 

110- 

1209 

55436 

130- 

1409 

44514 

150- 

160« 

60303 

170- 

lBOt 

34837 

190- 

2009 

30009 

210- 

2209 

31602 

230- 

240i 

62442 

250- 

2601111040 

270- 

280c 

65167 

290- 

300«106115 

310- 

3209 

11017 


10000-10010« 17629 
6ESAHTCHECK&UMME9 52800 


Teil 3 


10 '»«««»«#»#««•««« 

11 '• DI8C OF TRON * 

12 '• (c) by * 

13 '* A.M.Soft and * 

14 *# Lulaa Val • 

16 '• Haupttal1 # 

17 * ****rhhmhhhhhhmh« 

18 9 

19 s 

20 i 

21 MEMORY 19990«BOSUD 231 

22 DIH langth(BO)«DIH ton<80)«GOTO 19 
2 

23 MODE OiBORDER 11«INK 1,6«INK 2,15« 
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CMtpeA* mit 


51 
























Programme _ 

INK 3,24* INK 5,2iINK 6,15iIM< 7,Ol INK 
8,9« INK 5,4iINK 4,15 bINK 10,5*INK 12 
,2iINK O v OiCALL 20000 

24 a^)ib^20ic"liiM)ia^if"Oi9^>ih«Oa 
1-0« »c-Oi k«Si 1*200 

25 PLOT b v 200,2aDRAN b+4,200 

26 80 

27 HOVE 466,06»RESTORE 99iCALL Sprits 
20 IF o*0 THEN N0VE 230,1501RE8T0RE 1 
41iCALL sprlte«80UND 129,100,10,15,2, 
3i 1*1 

29 IF o*10 THEN HOVE 230,150tRESTORE 
141tCALL sprlteiHOVE 360,1501RESTORE 
141ICALL opritoiSOUND 132,100,10,15,2 
,3«1—2 

30 IF o*20 THEN HOVE 360,1501RESTORE 
141iCALL spriteil-1 

31 0*04-11 IF o>*21 THEN o-O 

32 1-1-1«IF l<-0 THEN GOTO 174 

33 J—JOYCO)iIF J«0 THEN GOTO 39 

34 IF J AND 4 THEN b*b-4iIF b<*156 TH 
EN b*156 ELSE PLOT b+4,200,10*DRAW b+ 
0,200■ PLOT b,200,2*DRAN b+4,200iSOUND 

135,243,5,15,0,3 

35 IF J AND 0 THEN b*b+4«IF b>*476 TH 
EN b-476 ELSE PLOT b-4,200,10*DRAN b, 
200*PLOT b,200,2 bDRAN b+4,200iB0UND 1 

35,243,5,15,1,2 

36 IF J AND 1 AND c*0 THEN HOVE 144,0 
6aRESTORE 99»CALL «pritoiHOVE 466,06■ 
RESTORE 99«CALL oprlt«lc*llSOUND 1,20 
00,0,15,1,3 

37-IF J AND 2 AND c-1 THEN HOVE 466,0 
61RE S TOR E 99*CALL aprltoiHOVE 144,06i 
RESTORE 99iCALL sprltoic*OiSOUND 1,20 
00,0,15,1,3 

30 IF j AND 16 THEN d*l 

39 IF d-O THEN 20 

40 IF c-1 THEN cc-cae-80«4-464ih-lic* 
3iGOTO 51 

41 IF c-O THEN cc-cia*0Oif*15Oic-3 

42 IF h—1 THEN 51 

43 4*«+32iIF 4 >*b THEN f*b 

44 o*«4-4i IF o>*150 THEN o-lSOrd-Oic-O 
ig—0«GOTO 60 

45 IF g>9 THEN HOVE f,«RESTORE 154iC 
ALL SprlteiCALL lcBD19*CALL *BD19«HQVE 

f ,«RESTORE 1541 CALL Sprite»GOTO 40 

46 IF g<-5 THEN HOVE f,otRESTORE 1501 
CALL spritoiCALL *BD19«CALL 6BD19 iHOV 
E 4 ,oiRESTORE 150*CALL sprlte 

47 IF g>5 THEN HOVE f,«RESTORE 156iC 
ALL spriteiCALL «cBD19*CALL &BD19«H0VE 

4 ,eiRESTORE 156tCALL oprlto 
40 g-g+1 

49 SOUND 2,0,0,15,1,3 

50 GOTO 20 

51 f *f —32«IF f<*b THEN f-b 

52 o*o+4iIF «>-150 THEN o*150id-0ic-l 
igO*h—OiGOTO 60 

53 IF g>9 THEN HOVE f,«RESTORE 154iC 
ALL SprltoiCALL &BD19iCALL 6BD19iH0VE 

f v oiRESTORE 154iCALL sprltoiGOTO 56 

54 IF g<*5 THEN HOVE 4,«iRESTORE lSBi 
CALL opritoiCALL 6BDI9iCALL 6BD19iH0V 
E 4 ,oiRESTORE 150*CALL sprlte 

55 IF g>5 THEN HOVE f, «RESTORE 156iC 
ALL spriteiCALL 6BD19sCALL «cBD19iH0VE 

4 ,oiRESTORE 156tCALL sprlte 

56 g*g+l 

57 SOUND 2,0,0,15,1,3 
50 GOTO 20 

59 ' - Test - 

60 IF 1*1 THEN 62 

61 IF 1-2 TfrCN 63 

62 IF 4*232 OR 4*240 THEN 66 ELSE 64 

63 IF 4*372 OR 4*300 THEN 66 ELSE 64 

64 k*k—1«IF k<0 THEN GOTO 174 ELSE 00 
6ÜB S0I0OTO 20 

65 ' - Tro44er - 

66 IF 1*1 THEN HOVE 230,1501 RESTORE 1 
41|CALL sprltoiGOTO 60 

67 IF 1*2 T»CN HOVE 360,1501 RESTORE 1 
41iCALL sprltoiGOTO 78 

60 HOVE 230,1501RESTORE 161iCALL spri 
to 


69 PLOT b,200,lOiDRAN b+0,2OOib-32OiP 
LOT b,200,2iDRAN b+4,200 

70 0OSUB 90 

71 FOR t—20 TO 400 STEP 1OlSOUND 130, 
10+AB8<t>,0,13,2,3iNEXT 

72 FOR t*400 TO 20 STEP -1OlSOUND 130 
,10*AB8(t>,0,15,2,3sNEXT 

73 HOVE 230,lSBiRESTORE 161iCALL spri 
to 

74 sc*sc+20ik-k+1 

75 GOSUB 80 

76 BOSUB 94 

77 HOVE 230,1501 RESTORE 1411CALL spri 
toi 1 —ISOiGOTO 20 

70 HOVE 368,1501RESTORE 161iCALL spri 

to 

79 PLOT b,200,lOiDRAH b+G,200lb*320iP 
LOT b,200,2iDRAN b+4,200 
BO GOSUB 90 

01 FOR t—20 TO 400 STEP lOiSOUND 130, 

10+ABS<t),0,15,2,3»NEXT 

02 FOR t-400 TO 20 STEP -10 bSOUND 130 

,10*AB8(t>,0,15,2,3«NEXT 

03 HOVE 368,1501RESTORE 161lCALL spri 

to 

04 sc*sc+20ik-k+1iIF k>*10 THEN k-10 
05 GOSUB 00 
06 GOSUB 94 

87 HOVE 368,ISBbREBTORE 141fCALL spri 
tei1—150*GOTO 20 
08 ' - Anzeige - 

89 LOCATG 4,2tPAPER 12sPEN 2SPRINT"SC 
t M |sc«LOCATE 13,2*PEN 3iPRINT"DIi"|kl 

PAPER 0*RETURN 

90 IF cc-1 THEN HOVE 466,06iRESTORE 9 
9«CALL sprit«HOVE 466,06iRESTORE 120 
tCALL sprlte 

91 IF cc-0 THEN HOVE 144,06»RESTORE 9 
9ICALL spritoiHOVE 144,06IRESTORE 120 
iCALL sprito 

92 FOR t——5 TO 15»SOUND 1,ABS<n>»10,5 
,15,0,0,ABS<n)iNEXT 

93 RETURN 

94 - IF cc*l THEN HOVE 466,06tRESTORE 1 
20tCALL sprito*HOVE 466,06iRESTORE 99 
tCALL sprito 

95 IF cc-0 THEN HOVE 144,06tRESTORE 1 
20:CALL spritoaHOVE 144,06tRE9T0RE 99 
tCALL Sprite 

96 FOR t——5 TO lSsSOUND 1,ABS(n)*10,5 
,15,0,0,ABS<n>iNEXT 


97 RETURN 

90 1 

'- 

8prites - 

99 DATA 

111 

100 

DATA 

11111 

101 

DATA 

11111 

102 

DATA 

11111 

103 

DATA 

1 

104 

DATA 

2222222 

105 

DATA 

222222222 

106 

DATA 

22 222 22 

107 

DATA 

22 222 22 

108 

DATA 

22 222 22 

109 

DATA 

44 555 44 

HO 

DATA 

55555 

111 

DATA 

555 555 

112 

DATA 

555 555 

113 

DATA 

555 555 

114 

DATA 

555 555 

115 

DATA 

555 555 

116 

DATA 

555 555 

117 

DATA 

6666 6666 

110 

DATA 

666 6 6 666 

119 

* 


120 

DATA 

44 44 

121 

DATA 

22 111 22 

122 

DATA 

221111122 

123 

DATA 

221111122 

124 

DATA 

221111122 

125 

DATA 

22 1 22 

126 

DATA 


127 

DATA 

9999999 

12G 

DATA 

22222 

129 

DATA 

222 

130 

DATA 

222 

131 

DATA 

55555 


132 

DATA 

555 555 

133 

DATA 

555 555 

134 

DATA 

555 555 

135 

DATA 

555 555 

136 

DATA 

555 555 

137 

DATA 

555 555 

130 

DATA 

6666 6666 

139 

DATA 

666 6 6 666 

140 

' 


141 

DATA 

55 

142 

DATA 

5555 

143 

DATA 

5555 

144 

DATA 

66 

145 

DATA 

7777 

146 

DATA 

7 77 7 

147 

DATA 

7 77 7 

14B 

DATA 

6 00 6 

149 

DATA 

8080 

150 

DATA 

08 80 

151 

DATA 

08 00 

152 

DATA 

333 333 

153 

* 


154 

DATA 

aa 

155 



156 

DATA 

aaaa 

157 

■ 


150 

DATA 

aaaa 

159 

DATA 

aaaaaa 

160 

' 


161 

DATA 

6 4 2 4 

162 

DATA 

34 1 5 9 a 

163 

DATA 

7 3 b a 6 

164 

DATA 

2 4 6 0 

165 

DATA 

1111 

166 

DATA 

3 0 1 17 2 

167 

DATA 

4 al 10 b 

160 

DATA 

1111 

169 

DATA 

2 4 6 0 

170 

DATA 

7 3 b a 6 

171 

DATA 

34 1 5 9 a 

172 

DATA 

6 4 2 3 4 

173 

* 


174 

■ - 

- Game over —— 

175 

FOR t—0 TO 25«CALL StBC4D«S0UND 


5,U+10>*4,0,15,2,liNEXTtSOUND 135,0, 
O 

176 MODE Ol INK 0,0iINK 12,5:INK l,20i 
INK 2,15*INK 3,1iBORDER llsCALL 20000 

177 GOSUB 09 

17B CALL StBD19iCALL 6BD19 

179 a*- M BAHE“iy-20O»GOSUB 206ta**»DVE 

R M ty-150«GOSUB 206 

100 IF sc>—hisc THEN hisc-sc 

101 LOCATE 1,1*PRINT CHR*(22)CHR*C1)I 

LOCATE B,20iPEN 1»PRINT"HI» H |hisc 
1B2 LOCATE 1,22»PEN 2*PRINT" DISC 
OF TRON <c> by A.H.Soft and 

Luisa Voi PRESS FIRE M | 

103 LOCATE 1,liPRINT CHR*<22)CHR*<0> 

104 klang^imusic-O 

105 SOUND 129,ton(music),length(music 
>*1.3,13,3«SOUND 134,ton(music)/klang 
,langth(music),0,3 

106 fflusic—music+ltIF muslc*40 THEN mu 
sic-Os klang—2^(RND+5)+1 

1B7 WHILE SQ(1)>127aWEND 
106 IF JOY(O)—16 THEN GOTO 23 
109 GOTO 105 

190 STOP 

191 ' - Anlaitung/Husic - 

192 RESTORE 215 

193 READ ton:IF ton-O THEN GOTO 196 

194 ton(count>—ton■READ length(count1 

195 count-count+liGOTO 193 

196 HODE Oi INK 0,0» IPH< l,20iINK 2,9i I 
NK 3,0:BORDER 12»INK 10,lliINK 13,4*1 
NK 11,20 b INK 12,103 INK 14,13iINK 15,9 
iCALL 20000 

197 a*— H DISC H iy*20OtGOSUB 206iÄ*-"of" 
iy—150iGOSUB 206ia$— M TRON N iy—20*GOSUB 

206 

190 LOCATE 1,25«PRINT" Press Flre 

H |«LOCATE 1,1 

199 klang*2iimjsic*0 

200 ENV 1,1,10,1,5,1,1,5,-2,1,5,1,2«E 
NT —1,1,5,liENT -2,1,10,5 bENV 2,15,-1 


52 
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Programme 


tlOaENT —3.10.10.1.IO.—12.laENV 3 V 1S V 
—1 ,30 

201 SOUND 129.ton<music>.lengthimusic 
>«1.3,13,3.SOUND 134,ton<atuslc>/klang 
.lengthCmusic),0,3 

202 «uslc«eusic+laIF nuslc«40 THEN atu 
*ic«Oi klang-2^CRND*3>+1 

203 WHILE SQ(1)>127iNEND 

204 IF JOY <0)™16 THEN GOTO 218 

205 GOTO 201 

206 •-Schrlftvergroesserrung - 

207 POKE &B939.&C9 

208 LOCATE 1,25iPHINT a*| 

209 x-10O-LEN<«*>*16aF0R a«l4 TO O ST 
EP —2iF0R b**0 TO LEN <*6> *32—2 STEP 2 

210 IF TEST <b v a) THEN FOR c*0 TO 2iPL 
OT <c—d>*2+C*+b)*4+x,y+**4,2tDRANR O, 
20* DRAHR 6,6,3aNEXTsFOR c*—1 TO 1 GTE 
P 2IPL0TR -2,-2,1xDRANR 0,c*20*NEXT 

211 NEXT b,«LOCATE 1,25IPAPER 12iPRI 
NT STRING*<<L£N<a*)>,“ ")iPAPER O 

212 POKE lrB939,tF3 

213 RETURN 

214 ' - Musikdata's - 

215 DATA 638,15,568,13,506,15,426,13, 
426,15,379,13,426,15,506,15,638,25,56 
0,8,506,15,506,15,560,15,638,15,56©,4 
3,638,15,568,15,506,15,426,15,426,15, 
379, 15 ,'426,12,506,15,638,23,360,8,506 
,13,506,15,568,15,568,15 

216 DATA 638,60.470,30,478,30,379,15, 
379,30,379,15,426,13,426,15,506,13,63 
8,13,638,60,0 

217 * - Anleitung - 

218 MODE ItINK 1,0*INK 0,24*INK 2,6>I 
NK 3,15iBORD€R 11 

219 LOCATE 13,1* PEN 1 * PRINT 1 *ANLEITUNG 
■ 

220 PR INT SPRINT* PEN 2* PR INT "Bi* alnd 

in weine* inneren gespeichert und «u 
wstn iw Ihr Leben kaeepfen. Abe 

r das Ist gar nicht so einfach denn 
ich werde gegen SA« spielen." 

221 PRINT*PEN 3iPRINT N 8ie haben 3 Die 
eschalben eit d e nn en 61e eich treffen 

koennen. Der Zlelp 

unkt der Dlsc ist an der hin- teren 
Hand waklert." 

222 PRINT*PEN liFRINT”Aus*erdew haben 
81® bloss ein®' gewisse Zeit zur ver 

fuegung ue eich zu Treffen, denn wenn 
die Zelt abgelaufen Ist,ist das 8p 

iel zu Ende und ich habe gewonnen. 

223 LOCATE 16,24iPEN 2*PRINT M Press Fl 


re"|iWHIL£ J0Y<0X>16i 

224 CLBiINK 0,20 

225 PRINT "Nenn Sie «Ich treffen bekow 

een Sie 20 Punkte dafuer und die 

volle Zelt zu- rueck.Auseerdee eine 
Dlsc dazu." 

226 PRINT*PEN 21PRINT*PRINT N Ich Hüens 
che Ihnen nun viel Gpass und hoffen 
dlich verlieren Sie oft gegen nie 
h,da Ich Ja sowieso besser bin duerf— 
te es auch nicht schwer sein." 

227 PRINT* PRINT* PRINT* PRINT" VI 

EL BLUECK trotedee" 

228 LOCATE 16,24*PEN 3iPRINT"Press Fi 
re"| iHHILE J0Y(0X>16iHEND 

229 FOR t-O TO 25*CALL *BC4Di80UND 13 
5,(a+10)*4,0,15,2,liNEXT 

230 GOTO 23 

231 •-MC - CODE - ' 

232 sprlte-42010 
2W RE STORE 242*1-0*k«0iREAD a 
2^4 WH ILE *<256 

235 POKE sprlte +1 ,a*k-k+ai i-i+liREAD 
a 

236 IF 1 HDD 800 GOTO 240 

237 IF a-k HDD 256 GOTO 239 

238 PRINT "ERROR..."■ END 

239 k-OiREAD a 

240 NEND 

241 RETURN 

242 DATA 253,229,221,229,42,42,179,23 
7,152 

243 DATA 91,46,179,25,203,124,32,27,2 
15 

244 DATA 203,44,32,23,203,29,235,33,3 

245 DATA 199,0,103,237,82,22,0,48,3 

246 DATA 15,122,149,98,106,87,30,200, 
39 

247 DATA 213,24,39,221,225,253,225,20 

1,121 

248 DATA 0,213,125,230,7,203,39,203,2 
52 

249 DATA 39,203,39,87,30,0,125,230,24 

250 DATA 248,111,203,37,203,20,68,77, 
199 

251 DATA 203,37,203,20,203,37,203,20, 
15B 

252 DATA 9,25,229,42,40,179,237,75,68 

253 DATA 44,179,9.203,44,203,29.203,1 

4Mb 

234 DATA 44,203,29,6,0,203,44*40,57 

233 DATA 20,203,29,36,32,8,120,149,83 


236 DATA 72,96,104,71,24,13,193,193,0 

237 DATA 221,223,233,229,201,203,29,6 
2. 139 

258 DATA 00,149 1 56,242,79,209,25,237, 
53 

239 DATA 91,201,177,23,17,0,192,23,21 

260 DATA 48,4,17,80,192,23,197,221,16 

261 DATA 223,193,237,91,40,174,62,0,6 

262 DATA 128,40,24,19,19,19,19,19,31 

263 DATA 26,234.140,32,203,19,26,214, 

264 DATA 32,36,6,19,26,214,32,48,177 
263 DATA 244,16,232,63,197,229,19,19, 
253 

266 DATA 19,19,19,26,234,140,32,174,1 

267 DATA 19,26,214,32,36,117,221,229, 

268 DATA 193,120,234,0,40,8,19,26,148 

269 DATA 214,32,36,103,16,248,63,24,2 

270 DATA 2,24,217,19,26,214,32,36,78 

271 DATA 90,230,13,203,71,40,2,203,86 

272 DATA 247,203,87,40,2,203,231,230, 

219 

273 DATA 90,203,79,40,2,203,213,203,1 

274 DATA 93,40,2,203,199,230,83,203,3 
3 

273 DATA 39,174,119,19,26,214,32,86,1 

276 DATA 50,230,13,203,71,40,2,203,46 

277 DATA 247,203,87,40,2,203,231,230, 
219 

278 DATA 90,203,79,40,2,203,213,203,1 

279 DATA 93,40,2,203,199,230,83,174,4 

280 DATA 119,62,248,164,79.33,62,7,8 

281 DATA 164,177,103,16,166,19,26,214 

, 117 

282 DATA 32,48.230,223,1,0,8,9,61- 
293 DATA 40,8,1,80,192,9,62,199,B7 

284 DATA 164.103,193,16,140,221,223,2 
53.35 

285 DATA 225.201.256.170 

286 * — Saveroutine — 

207 8AVE"dlec o 
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66- 

67a128859 

120- 

129a 

3400 

190- 

191a 

27137 




60- 

69a 

80186 

130- 

131i 

3600 

192- 

193a 

33126 

ZEILENNR 

. ■ 1 

SUMMEN 

70- 

71a 

5075 

132- 

133* 

5360 

194- 

195t 

55568 

IO— 

11a 

16836 

72- 
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134- 
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196- 
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2412 

206- 
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53250 
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04- 
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25 • 
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87a 
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40834 
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151t 
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213t 

4032 
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291113790 
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153t 
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92- 
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159t 
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221a 
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37a 

89000 
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99a 

12953 

160- 

161t 

2691 

222- 

223a 

93295 

38- 

39t 

22652 

lOO- 

101a 

4200 

162- 

163* 

7493 

224- 

225a 

15387 

40— 

41a 

70046 

102- 

103« 

2632 

164- 

165* 

4126 

226- 
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74598 

42- 

43a 

60908 
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105a 

6680 

166- 

167t 

7130 

228- 

229a 

65386 

44- 

45s120321 
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5880 

168- 

169t 

4126 

230- 
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46— 
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6016 

170- 
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7493 
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36flB3 
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49i 
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110- 
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4944 

172- 

173t 

3406 
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64465 

50— 

51a 

545B2 

112- 

113a 
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175* 
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236- 

237a 

31966 

52- 
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5368 
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238- 

239a 

13463 

54- 

55a 
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3981 
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7319 
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64- 
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47171 
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51316 
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36392 

205a 

30577 

2B7a 
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209a 

25401 

i 

25004 
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Um die hohe Spielgeseh windig* 
keit und die fließenden Bewegun¬ 
gen der Sprites realisieren zu kön¬ 
nen* wurde die eigentliche Spiel¬ 
routine in Maschinensprache 


Programme_ 

SPACE-HAWK 


Nach der Entdeckung des Plane¬ 
ten IRIDIUM 4, im Sternbild 
Cassiopaia, hat die irdische Regie¬ 
rung beschlossen, den Planeten 
durch eine große Bewässerung¬ 
saktion für Agrarwirtschaft nutz¬ 
bar zu machen. 

Dies stößt allerdings auf den Wi¬ 
derstand der mit den Menschen' 
verfeindeten Cloronen, die den 
Planeten ihrerseits als Militär¬ 
stützpunkt benutzen wollen. Al¬ 
so schicken die Cloronen Robo¬ 
ter, um die bereits fertiggestellten 
Kanäle vor der Inbetriebnahme 
zu zerstören. Schwingen Sie sich 
also als Top-Pilot der irdischen 
Streitkräfte an die Kontrol!Instru¬ 
mente Ihres ferngesteuerten Ab¬ 
fangjägers vom Typ SPACE 
HAWK MK II, um die Angriffe 
der Fremden abzuwehren. 

Die Roboter fliegen in wildem 
Zick-Zack-Kurs durch die Kanäle 
und versuchen ihrerseits, den irdi¬ 
schen Abfangjäger abzuschießen. 
Haben Sie 15 feindliche Raum¬ 
schiffe getroffen, gelangen Sie in 
eine neue Zone in der andere Ro¬ 
botschiffe ihr Unwesen treiben. 


Insgesamt verfügen sie über 3 Ab¬ 
fangjäger. Das Spiel ist beendet, 
wenn alle 3 verlorengegangen 
sind. 

Schnelles Reagieren und wohl ein 
wenig Übung sind bei diesem Ac- 


toll« Grafik, Profi-Sprites - 
heiße Action In einem Programm 

tionprogramm gefragt. Überwal- 

E 1 ist die professionelle Gra- 
r Sprites. 


geschrieben. Aus diesem Grund 
ist es unbedingt notwendig, daß 
da Programm nach dem Abtip¬ 
pen als erstes abgespdchert wird, 
da eventuelle Tippfehler bei ei¬ 
nem Programmstart zum Sysfe- 
mabsturz und somit zum Pro¬ 
grammverlust führen könnte. 


1 

** 

2 


SPACE HANK *** 
(C) *986 «»*• 


3 ******* 

** 

4 '** OTTFRIED SCHMIDT 


6 ' 

7 ' 

B 'INITIALISIERUNG 
9 * 

lOOO INK O v OsINK 1,9»INK 2,21iINK 3,2 
4«INK 4,6>INK 5,3 

101O INK 6,2iINK 7,lllINK 8,26iINK 9, 
15»INK 10,1 

1020 ENV 1,-11,4000»ENV 2,-8,19 

1030 ENT 1,5,-4,1,10,2,1,10,3,1,20,4, 

1,15,6,1 

1040 RESTORE 1070» FOR 1-69F0O TO «t9F 
OBiREAD siPOKE i,aiNEXT 1 
1050 FOR i—lc9F10 TO Ic9F1BbREAD «iPOKE 
l,«iNEXT i 

1060 hsc-OiBOSUB 5070 
1070 DATA 129,1,1,40,0,0,14,40,0 
1080 DATA 129,1,1,60,0,0,14,35,0 
1090 * 

llOO Dill an ( 6 ) ,*nl ( 6 ) ,«k ( 6 ) v eNl ( 6 > ,f • 
(6) 

1110 DATA ScA0,!tA0,&Al , 6 Ai ,8cA2,tcA2 
1120 DATA 670 , ItEO , 650 , CtCO , 630,6A0 
1130 DATA 6A3,6A3,6A3,6A4,6A4,6A5 
1140 DATA 610,680 V 6F0,660,6D0 V 640 
1150 DATA 17,6,15,9,2,7 
1160 RESTORE UlOsFOR i-1 TO 61 READ a 
n(i)»NEXT i 

1170 FOR i-1 TO 6 cREAD anl(i)iNEXT i 


11B0 FOR i-1 TO 61 READ vkUIiNEXT 1 
1190 FOR i-1 TO 61READ exl<1)«NEXT i 
1200 FOR 1-1 TO 61READ fatlliNEXT 1 
1210 * 

1220 ’BPRITEDATEN LESEN 
1230 1 

1240 DATA 00,00,00,04,00,00,00,00,00, 
OO 

1250 DATA C4,00,00,00,00,40,40,04,68, 
88 

1260 DATA 00,00,40,84,0C,4C,B8,00,00, 
40 

1270 DATA 0C,F0,00,88,00,00,4O,OC,F0, 
00 

1280 DATA 88,00,00,B4,58,30,A4,40,00, 
00 

1290 DATA 84,58,30,A4,40,00,00,84,24, 
FO 

1300 DATA 18,40,00,00,90,00,00,00,64, 
00 

1310 DATA 00,90,00,00,00,64,00,00,90, 
OC 

1320 DATA OC,00,64,00,00,B4,24,00,18, 

40 

1330 DATA 00,00,00,90,00,64,00,00,00, 
80 

1340 DATA 40,00,88,44,00,00,00,00,04, 
00 

1350 DATA 00,00,00,00,00,00,00,00,00, 
00 

1360 DATA 00,40,00,80,00,00,00,00,40, 
00 

1370 DATA 88,00,00,00,00,40,04,88,00, 
00 

1380 DATA 00,00,r40,El ,88,00,00,00,00, 
CO 

1390 DATA El,CO,00,00,00,CO,DO,04,06, 

cc 

1400 DATA 00,00,40,E0,FC,09,80,00,00, 

40 

1410 DATA E0,FC,C9 V 88,00,00,00,00,04, 
06 


1420 DATA CC,00,00,00,CO,El ,00,00,00, 
00 

1430 DATA OO,40,El,88,OO,00,00,00,40, 
04 

1440 DATA 88,00,00,00,OO,40,00,8B,00, 
00 

1450 DATA 00,00,40,00,88,00,00,00,00« 
00 

1460 DATA 00,00,00,00,00,00,00,00,00, 
OO 

1470 DATA 00,00,00,40,04,88,00,00,00, 
00 

1480 DATA 94,7C,EC,00,00,00,40,30,70, 
FC 

1490 DATA 00,00,00,40,30,70,FC,88,00, 
00 

1500 DATA DO,94,7C,EC,06,00,00,D0,E0, 
70 

1510 DATA 09,06,00,00,DO,FO,C4,C3,C6, 
00 

1520 DATA 00,DO,FO,04,03,06,00,00,DO, 
EO 

1530 DATA 70,09,06,00,00,DO,94,70,EC, 
C6 

1540 DATA 00,00,40,30,7C,FO,8B,00,00, 
40 

1550 DATA 30,7C,FC,8B,00,00,00,94,70, 
EC 

1560 DATA 00,00,00,00,40,04,88,00,00, 
00 

1570 DATA 00,00,00,00,00,00,00,00,00, 
00 

1580 DATA 00,00,00,00,00,00,04,00,00, 
00 

1590 DATA 00,00,40,El,SB,00,00,00,00, 
40 

1600 DATA El,88,00,00,00,00,DO,El,06, 
00 

1610 DATA 00,00,CO,FO,7C,03,CC«00«00, 
DO 

1620 DATA B4,40,E9,06,00,00,40,B4,4C, 
E9 
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£30 DATA B0,00,00,40,B4,40,E9,88,00,1 2M0 DATA 00.00,^0,00.00.00.00,80. 
£40 DATA DO,84,40,£9,06,00,00,CO,FO,! 2070 DATA 70.00,00,00,00.80.03,70,00. 
£ DATA 03,00,00,00,00,00,61,06.00, 2080 DATA 00,00,80.92.A0.00.00.00.00. 
f° ^ °°-00.40,61,08.00.00,00,00,1^ „ATA 30.AO.OO.OO.OO.00,80.41,70, 
°° 0 MTA E1,B8,00 ' 00 ' 00 ' 0 °.OO.C4 J 00,| 2100 DATA 00,00,00,00,BO,40,00,00,00, 
£ “ TS «‘•OO,00,00,00,00,00,00,00,1 2110 data 00.80,00,00.00.00.00.00.00. 
« MTA 00,00,00,00 ’ 00 ’ 00 ’00, F 0. 0 0-| «20 DATA 00.00,00.00.00.00,00,00,00, 
S" 00 - 00 - 00 - 30 - 3C -«^.B 2 ,00,L30 DATA 00.00.00,00,00.00,00.00.00, 
data D4.3C.3C, 30,49,00,00,84,34, 2140 DATA 00.00.00.00,00.00.00.00.00, 
7» DATA 38,49,00,00,B4,34,3C,38,69,1 £30 DATA 00,00.00,A0,00,00,00,00,00, 
00 - B4 * M .3C,38.49,00,00,B4 J 2140 DATA 70,AO,00,00,00,00,80,30,70, 
g" “ “•“--.00 , =0.3C,3C,3 cJ|? 70 DATA 00,00.00.80.41.92,AO.OO.OO. 
30 MTA 0Q - 00 - 00 .04.03,49,00,00,00.1 2180 D*TA BO,C6,92,AO.OO.OO,SO,41 ,CC, 
Bz“ ■ O,O3 «“ , “i®°.®O,BO l 80,O3. 2190 DATA «0.00.00,30.61.89,09,70.00, 

£70 DATA 62,00,00,00,S0|3C,82,00,00,1 2200 DATA 50,30,06.92.70,00,00.00.70. 

1780 DATA 00,00,61,00,00,00,00,00,00. M»0 DATA TO.AO.OO.OO.OO.SO 30 AO 00 
1790 AATA 00,00,00,00.00,00,00.00.00 M »00,00,80,30.80,00. 

1800 DATA 00.00.00.00,00.00.00 00 oo] “ ".«".OO.FO.OO.M.OO.OO.OO. 
40 .00.00,00.00,00,1 ^30 ^ 00.00,00,00,00,00.00.00,00. 

£0 DATA 04,88,00,00,00,00,84,00,40, 1 »40 DATA «0,00.00.00.00,00.00.00.00. 

ID» DATA 00,00,00,84,C4.4C,00,00,00,1 g*> DATA 00.00.00,00.00.00.00.00.80. 

£0 DATA 48.0C.8C, 80,00.00.40.40,OC. »60 DATA 00.00,00,00,00,80.70.00.00, 

.840 DATA 85.00.00.84,64.00.48,40,00, ^70 DATA OO.FO.M.92, «0,00.00.30.30 

1830 DATA 84.64.04.40.40,00,00.04,04. ä» DATA 92.A0,00.00.00.80.04.92.Z 

£60 DATA 40,40,00,00,84.84.04,40,40, »90 DATA 00,50.61.89,09.70.00.00.80. 

£70 DATA 00,84,84,00,40,40,00,00,40, 2300 DATA 03.09,70,00.00,80,06.03,46. 

£80 DATA 00,80.88,00.00.40.48,00,80, 2310 DATA «0.00,80,61.89.09.92.AO.OO. 

£90 DATA 00,00,0© 04.04.40,00,00,00, 2320 DATA 80,06,92,70.00,00,00.80,03, 

£« DATA 84.00,40.00.00.00.00.40,04, £30 DATA 70.00.00.00.SO.30.AO.AO.00. 

DATA 00.00.00.00.00,00.00,00.00, £40 DATA OO.OO.FO.OO.OO.OO.OO.OO.OO. 

€ Zl °°* 40 * M ““- * 00 , 00 , 00 . 00 . 00 . 00 . 00 . 00 , 00 . 

88,00,00,00,40,DO,04,64,88,1 £60 DATA 00,00,00,30,00,00,00,00,00, 

Do DATA OO,94,6B,BO,00,60,00,00,94,1 £70 DATA Bo,FO,00,00,00,00, 30,61,30, 

£ Z — 5 - - 00,00.30.80.08.03.70.00.00. 

DATA 00.00.40.80,04,64.08,00,00, £90 DATA 61,06,09.70.00,00.80.03.09, 
1970 DATA 40,80.88,00.00.00.40.80.80, *2400 DATA AO.00,30,61.06.46.».AO.OO. 
1 TO 0 DATA 88,00,00,94,6«I.BO.DC.EC.OoJ £10 DATA 61,00,46,C3.70,00,00,B0,C3. 

“ TÄ W - 3C .^.re.6C,00.00,94,68, £20 DATA 09,70.00.00,30.61,89.46.92. 

«® ° ATA ” c i 00 i°0,40,DO, BO , 64, B8, | 2430 DATA 00,50,61,89,09,92,80,00,30, 
£10 DATA 00,00,40,80,88,00,00,00,00,1 £40 DATA 89,09.70.«0,00.80.03.00.03, 
£20 DATA C4,00,00,00,00,00,00,00,00,| £50 DATA 00,00.80.61.03.70.00,00.00. 
£30 DATA 00,00.00.00.00,00.00.00.00, £60 DATA B0.30.A0.00.00.00.00.30.FO. 
£40 DATA 00,00.00.00,00,00.00,00,00, £70 DATA 00.00,00,00,00.00.00.00,00, 
£=0 DATA 00,00.00.00,00.50,00,00.00,| £00 DATA 00,00.00,00.00.00.00.00.00. 


Programme 

£90 DATA AO.OO,00,00,00,30,BO,70,AO, 
»00 DATA 00.00.80,61,92,70,00,00.90. 
»10 MTA 03,09,70,00,00,30,61,89,92, 
»» MTA 00,00,90,61,00,92,AO.OO.OO, 
»30 MTA BO,83,92,AO,00,00,00,BO,83, 
»40 MTA 70,00,00,30,61,00,09,70,00, 
»50 MTA 90,61,06,92,«0,00,00,00,80, 
»60 MTA 30,AO,00,00,00,30,BO,FO,00, 
»70 MTA 00,00,00,30,00,00,00,00,00, 
»80 MTA 00,00,00,00,00,00,00,00,00, 
»90 MTA 00,00,00,00,00,00,00,00,00, 
2600 DATA,«0,30,00,00,00,00,00,00,80, 
£10 MTA 00,00,00,00.90,61,30,AO.OO, 
»20 MTA 30,B0.B3,92,«0,00,00,30,61, 

| OO 3 ® ® AT * AO.OO.OO,00,00,80,03,70,00, 
£40 MTA 00,00,80,83,92,«0,00,00,00, 
£50 MTA 61,92,AO.OO,00,00,30,61,70, 
£60 MTA 00,00,00,00,BO.AO.OO.OO.OO, 
£70 MTA 00.50,00,00,00,00,00,00,00, 
£80 MTA 00,00,00,00,00,00,00,00,00, 
£90 MTA 00,00,00,00,00,00,00,00,00, 
'£00 MTA 00,02,00,02,41,60,00,02,41, 
£10 MTA 00,00,00,00,10,00,02,89,10, 
£20 MTA 10.00.10.00,00,00,00,00,00. 
2730 ' 

236iAE 8T0RE 1240, rE 
l-MOOO TO «A3CD 
2750 READ ilifHKE i*VAL<"*«+»*> 

£60 SOUND 129. V AL,i6.*A,! , f ;;^ JtT , 

2780 ' NASCH UCNDATEN »fach 
, 2790 * 

£0O MTA 00,3A,00,91,FE,FF,CC,4F,9S, 
»10 MTA OO,91,FE,Ol,C8.3A,06,91,FH, 
»20 MTA CC.39,93,3«,06,91 ,FE,01,08, 
»30 MTA 02,C8,3A.09,91 ,FE,OS,2B,06, 
»40 MTA 32,09,91,18,07,AF,32,09,91, 
»0 MTA 7F,92,3A,0C,91,FE,02,20,06, 
»60 MTA 32,OC,91.18,07,AF,32,00,91, 

»70 MTA 81,92.3A,OF,91,FE,03,28,06, 

» i MTA 32.0F.91, 18,08,AF,32,0F,91, 

»90 MTA F9.93.3A, 13,91 ,FE,01,CB,3A, 

»00 MTA 91 ,FE,03,2B,06,3C,32,14,91, 

»IO MTA 91 ,AF,32,14,91,00,70,94,3«, 

»» MTA 91 .FE.Ol ,CB,C3,00,92,3A,OA, 

»30 MTA 06.11,0E, 11 ,CD,32,BC,3A,OB, 

»40 MTA 06,0O,0E,00,CD,32,BC,3A,M, 
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2990 DATA 3C,FE,0F,2O,O2,3E,0B,32,0A, 

91 

2960 DATA 3A V 0B V 91 ,3C,FE,0F,20,02,3E, 
OB 

2970 DATA 32,0B,91,CD,19,BD,C9,CD,24, 
BB 

2980 DATA FE,00,28,10,67,CB,5C,CC,D8, 

92 

2990 DATA CB,54,CC,E3,92,CB,64,C4,19, 

93 

3000 DATA 2A f OD«91,22,19,91 V 21,00,AO, 
22 

3010 DATA 1B,91,CD,EE,92,C9,3A,0D,91, 
FE 

3020 DATA 32,C8,3D,32,0D,91 ,C9,3A,0D, 
91 _ 

3030 DATA FE,64,C8,3C,32,0D,91,C9,16, 
00 

3040 DATA 26 f 00 f 3A v 19,91,5F,3A,1A.91, 
6F 

3090 DATA 2D t 1D V CD,1D V BC,ED V 4B,1B V 91, 
E9 

3060 DATA 16,10,1E,07,0A,77,03,23,1D, 

20 ; 

3070 DATA F9,E1 9 CD V 26 V BC V E5 V 15,20,BF, 
El 

3000 DATA C9 V 3A V 06 V 91 9 FE V 00 V C0 V 3E V FF V 
32 

3090 DATA 06,91 V 3A V 0D V 91,06,04,00,32, 
07 

3100 DATA 91 V 3E 9 1A 9 32 V 0B V 91,21,00 9 9F, 
CD 

3110 DATA AA,BC,C9 9 3A 9 08 9 91,FE 9 C6 9 20, 
OE 

3120 DATA AF 9 32,06,91 9 2A 9 07 9 91,22,29, 
91 

3130 DATA CD,D3,93,C9,3C,32,0a,91,2A, 
07 

3140 DATA 91,22,21,91,21,B4,A9,22,23, 
91 

3190 DATA CD,AB,93,3A,OB,91,47,3A,11, 
91 

3160 DATA B8,20,1B,3A,07,91,47,3A,10, 
91 

3170 DATA OE,OE,Bl,98,38,0E,47,3E,12, 
98 

3180 DATA 3B,0B,3E,01,32,06,91,C3,44, 
93 

3190 DATA 3A,06,9l,47,3A,16,91,BB,CO, 

3A 

3200 DATA 07,91,47,3A,19,91,OE,OE,Bl, 
98 

3210 DATA DB,47,3E,12,9B,D8,3E,02,32, 
06 

3220 DATA 91,C3,44,93,16,00,26,00,3A, 

21 

3230 DATA 91,9F,3A,22,91,6F,2D,1D,CD, 
ID 

3240 DATA BC,ED,4B,23,91,E9,16,06,IE, 
02 

3290 DATA OA,77,03,23,1D,20,F9,E1,CD, 
26 

3260 DATA BC,E9,19,20,EF,E1 ,C9, 16,00, 
26 

3270 DATA 00,3A,29,91,9F,3A,26,91,6F, 
2D 

3260 DATA 1D,CD,1D,BC,E3,16,06,1E,02, 
AF , 

3290 DATA 77,23,1D,20,FA,E1,CD,26,BC, 
E5 

3300 DATA 19,20,F0,E1,C9,3A,11,91,FE, 
14 

3310 DATA 20,0B,2A,10,91,22,1F,91,CD, 
DE 

3320 DATA 94,3E,C6,3D,32,11,91,3A,12, 
91 

3330 DATA FE,01,26,14,3A,10,91,FE,64, 
20 

3340 DATA 07,3E,01,32,12,91,1B,1B,3C, 

32 

3390 DATA 10,91,1B,12,3A,10,91,FE,32, 
20 

3360 DATA 07,3E,02,32,12,91,1B,04,3D, 

32 

3370 DATA 10,91,2A,10,91,22,19,91,2A, 
ID 


3380 DATA 91,22,1B,91,CD,EE,92,ED,9F, 
E6 

3390 DATA OA,FE,OA,CC,24,99,2A,10,91, 

22 

3400 DATA 04,91,CD,04,99,3A,03,91,32, 
13 

3410 DATA 91,FE,01,CO,2A,10,91,22,1F, 
91 

3420 DATA CD,DE,94,C9,3A,16,91,FE,14, 
20 

3430 DATA 0B V 2A,19,91,22,1F,91,CD,DE, 
94 

3440 DATA 3E,C6,3D,32,16,91,3A,17,91, 
FE 

3490 DATA 01,2B,14,3A,19,91,FE,64,20, 
07 

3460 DATA 3E,01,32,17,91,16,18,3C,32, 
19 

3470 DATA 91,16,12,3A,19,91,FE,32,20, 
07 

3480 DATA 3E,02,32,17,91,1B,04,3D,32, 
19 4 

3490 DATA 91,2A,19,91,22,19,91,2A,ID, 
91 

3900 DATA 22,1B,91,CD,EE,92,2A,19,91, 

22" 

3910 DATA 04,91,CD,04,99,3A,03,91,32, 
1B 

3920 DATA 91,FE,01,C0,2A,19,91,22,1F, 
91 

3930 DATA CD,DE,94,C9,16,00,26,00,3A, 
1F 

3540 DATA 91,9F,3A,20,91,6F,2D,ID,CD, 
ID 

3550 DATA BC,E5,16,10,IE,07,AF,77,23, 
ID 

3560 DATA 20,FA,E1,CD,26,BC,E5,19,20, 
FO 

3570 DATA El,C9,3A,05,91,47,3A,0E,91, 
BB 

3580 DATA C0,3A,04,91,47,3A,0D,91,0E, 
OE 

3590 DATA Bl,9B,DB,47,3E,1C,9B,DB,3E, 
01 

3600 DATA 32,03,91,C9,3A,00,91,FE,00, 
CO 

3610 DATA 3A,11,91,06,46,9B,D8,3E,FF, 
32 

3620 DATA 00,91,3A,10,91,06,04,80,32, 
01 

3630 DATA. 91,3A,11,91,06,10,98,32,02, 
91 

3640 DATA 21,10,9F,CD,AA,BC,C9,3A,02, 
91 

3650 DATA FE,OA,20,OE,AF,32,00,91,2A, 
01 

3660 DATA 91,22,25,91,CD,D3,93,C9,3D, 
32 

3670 DATA 02,91,2A,01,91,22,21,?1,21, 
CO 

36B0 DATA A9,22,23,91,CD,A8,93,3A,02, 
91 

3690 DATA 47,3A,0E,91,BB,CO,3A,01,91, 
47 

3700 DATA 3A,0D,91,0E,0E,B1,98,D6,47, 
3E 

3710 DATA 12,98,DB,3E,Ol,32,00,91,C3, 
5A 

3720 DATA 95,00 
3730 * 

3740 RESTORE 2B00iF0R 1=69200 TO 6959 
9 

3750 READ atsPOKE 1,VAL( H 6 M +a*) 

3760 SOUND 129,VAL( M 6"+A*> ,5iNEXT 1 
3770 : 

37BO 'ZEICHENSATZ VERAENDERN 
3790 ' 

3000 SYMBOL AFTER 47tadr-690FF-1672 
3B10 FÜR adr-adr TO 690FF STEP 8 
3B20 POKE adr,PEEK(adr)/2sPOKE adr+1, 
PEEK< adr+1)/2 

3830 POKE adr+2,PEEK(adr+2)/2iP0KE ad 
r+3,PEEK ( adr+3)/2 
3B40 NEXT adr 
3050 ' 

3B60 'TITELBILD 


3B70 ' 

3BB0 MODE OiPEN 10t INK 10,lsLOCATE 5, 
8sPRINT"SPACE HAWK" 1 GOSUB 3960 
3B90 FOR 1 — 1 TO 500sNEXT i 
3900 LOCATE 6,10iPRINT"PR08RAMED H iG0S 
UB 3960 

3910 FOR 1-1 TO 500sNEXT 1 

3920 LOCATE 6,12iPRINT"AUGU6T 66"IOOS 

UB 3960 

3930 FOR 1-1 TO SOOsNEXT 1 

3940 LOCATE 1,14iPRINT"BY OTTFRIED 8 

CHMIDT 1 * 

3950 GOSUB 4930iFOR i«l TO 24 1 INK 10, 
24-1 1 FOR 1-1 TO 50sNEXT l,isGDTO 4010 
3960 FOR 1-1 TO 24t INK 10,1iFOR 1-1 T 
O 50«NEXT 1,1 
3970 RETURN 
3980 ' 

3990 'SPIEL VORBEREITEN 
4000 ' 

4010 Fa«17sP0KE 6944E,27 

4020 MODE OlBQRDER liPAPER Ol INK 0,0l 

INK 10,12 

4030 sc-Oa1iva—3t1av-1 1 zae-OiMava-1 1 ■ 
hot-BO 

4040 FOR 1-11 TO 14t INK i,0sNEXT lalN 
K 11,Fas INK 15,Fa 

4050 in-11 1 a—1 1 b-430iPOKE 692B3,FasP 
OKE |t92B5,Fa 

4060 MOVE a,blDRAWR 160,0,lniDRAWR 32 
,-16,in 

4070 MOVE 640,bsDRAWR—160,0,lniDRAWR- 
32,-16,in 

40B0 b-b-2sIF b<-0 THEN GOTO 4110 
4090 in=in+liIF ln-15 THEN in-11 
4100 GOTO 4060 

4110 POKE 69109,OsPOKE 6910A,12iP0KE 
6910B,11 

4120 POKE 69100,OsPOKE 69103,OsPOKE 6 
9106,OsPOKE 69113,OsPOKE 69116,0 
4130 POKE 6910E,20iP0KE 6910D,80 
4140 POKE 691ID,670sPOKE 6911E,6A0 
4150 POKE 69112,liPOKE 69117,2iPOKE 6 
952E,shot 

4160 POKE 69110,70SP0KE 69115,70 
4170 POKE 69111,19BsP0KE 69116,198 

4 ISO ' 

4190 'SPIELROUTINE MIT VERGEHIEBENEN 

EFFEKTEN 

4200 ' 

4210 CALL 69200 

4220 IF PEEK (69106)0255 AND PEEK(69 
106)00 THEN GOTO 4270 
4230 IF PEEK (69100)0255 AND PEEK (69 
100)00 OR PEEK(69113) =1 OR PEEK(6911 
B)—1 THEN GOTO 4700 

4240 POKE 69103,0sPOKE 69113,OsPOKE 6 
9118,0 

4250 IF JOY(O) -O THEN GOTO 4250 
4260 GOTO 4210 

4270 IF PEEK(69106)«2 THEN GOTO 4330 
42B0 POKE 69119,PEEK(69110) 1 POKE 6911 
A,PEEK(69111) 

4290 GOSUB 4630 

4300 x—INT(RND*50)+1 1 POKE 69110,49+* 
4310 POKE 69111,198 
4320 GOTO 4370 

4330 POKE 69119,PEEK(69115)sPOKE 6911 
A,PEEK(69116) 

4340 GOSUB 4630 

4350 x—INT(RND#50> +1sPOKE 69115,49+X 
4360 POKE 69116,198 

4370 sc-sc+10+wavaszae-zae+liIF zae-1 

5 THEN zaa-Os GOTO 4390 
4360 GOTO 4210 

4390 wave-wava+lilev-lcv+lsIF lev-7 T 
HEN lev-1 

4400 shot—ahot-5>IF ^hot<40 THEN shot 
-40 

4410 POKE 6911D,anl(lav)iPOKE 6911E,a 
n dev) 

4420 POKE 69283,Fe(lev)sPOKE 69205,fa 
(l«v) 

4430 POKE 6911F,PEEK(69110)sPOKE 6912 

0,PEEK(69111)sCALL 694DE 

4440 POKE 691IF,PEEK(69115)1POKE 6912 
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O,PEEKC&9116) iCALL Ct94DE 

4450 POKE 69119 t PEEK <lc910D> iPOKE 4911 

A V PEEK<*910E> 

4460 POKE 6911B v 0iPOKE 4911C,6AO 
4470 SOUND 129,60,30,15,1«SOUND l t 47 # 
20,15,1 

4480 SOUND 1 v 60 v 30 v 15,1lSOUND 1,80,50 
4490 POKE 69305,17 

4500 FOR 1-20 TO 198iP0KE 6911A,ltCAL 
L 692EE 

4510 SOUND 130,300-1,5,15,l,liNEXT 1 
4520 POKE 69120,198iPOKE 6911F,PEEK(6 
910D)iCALL 694DE 

4530 POKE &9305, 16aPOKE 69100,OsPOKE 
49I06,OiPOKE 69110,0«POKE 69113,0 
4540 FOR 1-1 TO 24iLOCATE 7,1«PRINT S 
TRIN 6 $< 8 ," M )yiNEXT 1 
4550 PEN 4iL0CATE 8 ,12«PRINT"P0INTS"i 
LOCATE 8,13«PRINT sc 

4560 FOR 1-1 TO IOOOiNEXT 1ILOCATE 8 , 
12iPRINT" "«LOCATE 9,13«PRINT" 

4570 PEN 8 «LOCATE B,12iPRINT"LIVEB"«L 
OCATE 9,13aPRINT live 
4580 FOR 1-1 TO IOOOiNEXT liLOCATE 8 , 
12*PRINT" "iLOCATE 9,13«PRINT N 

N 

4590 PEN 9*LOCATE 9,12iPRINT H WAVE N iLO 
CATE 9,13*PRINT w*ve 

4600 FOR 1-1 TO IOOOiNEXT 1 * LOCATE 8 , 
12*PRINT“ "«LOCATE 9,13«PRINT” 

u 

4610 BOTO 4150 
4620 ' EXPLOSION 

4630 POKE 69106,0«expl-1«SOUND 129,0, 
60,15,1,0,20 

4640 IF expl-7 THEN BOTO 46B0 

4650 POKE 6911B,eMl(expl)«POKE 691IC, 

ex(expl> 

4660 CALL 6BD19«CALL 692EE«CALL 6BD19 
«expl—expl +1 

4670 CALL 6BD19iBOTO 4640 

4680 POKE 6911F,PEEK(69119)«POKE 6912 

0,PEEK(6911A> 

4690 CALL 694DE«CALL 6BD19*RETURN 
4700 POKE 69100,0«POKE 69103,0«P0KE 6 
9118,0*P0KE 69113,0 

4710 POKE 49119,PEEK(6910D>«POKE 4911 
A,PEEK(6910E) 

4720 60SUB 4630«zae-O«live—llve-1«IF 
11ve-O THEN 4740 
4730 BOTO 4540 

4740 FOR 1-1 TO 24*L0CATE 7,1«PRINT 8 

TRING4( 8 ," H )|«NEXT 1 

4750 PEN 10sg*-"B w ix*>Bsy«llB BOSUB 489 

0 

4760 g*- H A"«x-9iy—UiGOSUB 4890 
4770 g*»"M"« x—10s y—11« BOSUB 4890 
4780 g4— (> E"ix-lliy-ll«BOSUB 4890 
4790 g#— H 0"ix—9s y—12* BOSUB 4690 
4800 g*—”V u ix—lOiy—12«BOSUB 4890 
4B10 g*—"E"»x-lliy-12xBOSUB 4890 
4820 g4— n R M ix~12iy—12«BOSUB 4890 
4830 FOR i»l TO 9«F0R 1-1 TO 26s INK 1 
0,1«SOUND 132,1*1,30,10—1,2,1«NEXT 1, 

4840 PEN 1 iMODE ltIF scMisc THEN hsc- 
sc*LOCATE 10,5sPRINT n NEW HIGH SCORE" 
4850 LOCATE B,7«PRINT M Y0UR SCORE IS"| 

9C 

4860 LOCATE 8,10sPRINT"HIBH SCORE 18" 
yhsc 

4870 BOSUB 4930 

4800 FOR 1-1 TO 24s INK 1,24-liFOR 1-1 
TO 50sNEXT l,i«INK 1,9sBOTO 4020 
4890 x1-24sx2-25 

4900 LOCATE x,x2iPRINT N "«LOCATE x,Ml 
«PRINT g4 

4910 x1-m1-1ix2-h 2-1«IF xl-y THEN RET 
URN 

4920 SOUND 132,10+x1,20,15,1«BOTO 490 
O 

4930 i—IsRESTORE 5020 

4940 ENV 3,-11,6000«ENV 4,3,1,1,15,-1 

,1«ENT “3,1,1, 8 ,1,—1, 8 «ENT -4,4,1,4,4 
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.-1.4 

4950 READ ai IF •—1 THEN RE 8 T0RE 4990 
■GOTO 4950 

4960 IF «<>0 THEN SOUND 130,aM,100,1 
5,3,3 

4970 SOUND 4,9(1>»2,16,12,4,3 

4980 BOUND 1,S<1>,16,12,4,4ti-l+llIF 

1-17 THEN 1-1 

4990 NHILE 8Q<1>>127lNEND 

5000 IF JOY(0> AND 16 THEN RETURN 

5010 BOTO 4950 

5020 DATA 60,71,47,71,45,71,60,71,60, 
71,0,60,71,0,0,0,60,71,47,71,45,71,60 
,71,60,71,0,60,71 

5030 DATA 0,0,0,47,60,40,60,36,60,47, 

60,47,60,0,47,60,0,0,0,71,89,60,89,53 

,B9,71,89,71,89,0,71,89 

5040 DATA 0,0,0,60,71,60,71,47,71,47, 

71,60,71,60,71,47,71,47,71 

5050 DATA 40,47,40,47,32,47,32,47,40, 

47,40,47,32,47,32,47 

5060 DATA -1 

5070 DATA 478,478,478,478,568,568,568 
,568 

5080 DATA 638,638,638,638,568,568,568 
,568 

5090 DIN m(16>IRE8T0RE 5070.FOR 1-1 T 
0 16 

5100 READ s(i>l»EXT 1.RETURN 


CHECK VIiPRUEFSUNHENl 


ZEILENNR.a 

SUMMEN 

1 - 

2 s 

53858 

3- 

4« 

45030 

5- 

6 « 

31766 

7- 

8 « 

12179 

9- 

1000 « 

27631 

101 O- 

1020 « 

33B27 

1030- 

1040« 

36399 

1050- 

IO 6 O 1 

67901 

1070- 

1080« 

28595 

1090- 

1100 « 

1211 

1110 - 

1120 « 

31650 

1130- 

1140« 

31782 

1150- 

1160« 

56414 

1170- 

1180« 

75369 

1190- 

1200 « 

75204 

1210 - 

1220 « 

13734 

1230- 

1240« 

23857 

1250- 

1260« 

494B2 

1270- 

1280« 

50201 

1290- 

1300« 

50130 

1310- 

13203 

50283 

1330- 

1340a 

49230 

1350- 

1360« 

46716 

1370- 

1380« 

48510 

1390- 

1400« 

51755 

1410- 

1420« 

51065 

1430- 

1440« 

48129 

1450- 

1460« 

46668 

1470- 

1480« 

50275 

1490- 

1500« 

51717 

1510- 

1520« 

51585 

1530- 

1540« 

51973 

1550- 

1560« 

50310 

1570- 

1580« 

46871 

1590- 

1600t 

48854 

1610- 

1620« 

52021 

1630- 

1640« 

51307 

165Ö- 

1660« 

48798 

1670- 

16B0« 

47111 

1690- 

1700« 

49104 

1710- 

1720« 

50514 

1730- 

1740« 

51012 

1750- 

1760« 

47990 

1770- 

1780« 

47970 

1790- 

1800« 

46504 

1810- 

1820: 

48982 

1830- 

1040« 

50586 

1850- 

1860« 

51031 

1870- 

1880« 

50544 

1B90- 

1900« 

4B922 

1910- 

1920s 

47467 

1930- 

1940« 

50761 

1950- 

I960« 

51297 


1970- 

1980« 

50585 

1990- 

2000 s 

51038 

2010 - 

2020 t 

46957 

2030- 

2040« 

46384 

2050- 

2060« 

47246 

2070- 

20 B 0 r 

48063 

2090- 

2100 « 

47534 

2110 - 

2120 « 

46414 

2130- 

2140« 

46384 

2150- 

2160« 

47227 

2170- 

2180s 

49273 

2190- 

22001 

48989 

2210 - 

2220 « 

47332 

2230- 

2240« 

46384 

2250- 

2260s 

47500 

2270- 

2280« 

49643 

2290- 

2300« 

50278 

2310- 

2320« 

49884 

2330- 

2340« 

47497 

2350- 

2360« 

46444 

2370- 

23BOs 

49163 

2390- 

2400« 

50155 

2410- 

2420« 

50427 

2430- 

2440« 

51354 

2450- 

2460« 

48179 

2470- 

2480« 

46534 

2490- 

2500« 

48416 

2510- 

2520« 

49433 

2530- 

2540« 

50048 

2550- 

2560« 

48866 

2570- 

2580« 

46444 

2590- 

2600« 

47560 

2610- 

2620« 

48194 

2630- 

2640« 

48282 

2650- 

26601 

47666 

2670- 

2680« 

46414 

2690- 

2700« 

47399 

2710- 

2720« 

47273 

2730- 

2740« 

59603 

2750- 

2760« 

47826 

2770- 

2700« 

18040 

2790- 

2800« 

27770 

2810- 

2820« 

54409 

2830- 

2840« 

51943 

2850- 

2860« 

52326 

2870- 

2880« 

52640 

2890- 

2900« 

50903 

2910- 

2920« 

51445 

2930- 

2940« 

52452 

2950- 

2960« 

51752 

2970- 

2980« 

54482 

2990- 

3000« 

50826 

3010- 

3020« 

53547 

3030- 

3040« 

51710 

3050- 

3060« 

52311 

3070- 

3080« 

53597 


3090- 

3100« 

50684 

3110- 3120« 

51397 

3130- 3140« 

50379 

3150- 

3160« 

50347 

3170- 3180« 

50780 

3190- 

3200« 

51646 

3210- 

3220« 

49819 

3230- 3240« 

52531 

3250-, 

„3260« 

51970 

3270-4 3280« 

52852 

3290- 

3300« 

53462 

3310- 

3320« 

51952 

3330- 

3340« 

50315 

S350- 3360. 

49964 

3370- 

3380« 

53066 

3390- 34001 

50219 

3410- 

3420« 

51287 

3430- 

3440« 

53002 

3450- 

3460« 

50114 

3470- 

3480« 

49916 

3490- 

3500« 

51083 

3510- 

35201 

50414 

3530- 

3540« 

52650 

3550- 

3560« 

52381 

3570- 

3580« 

52091 

3590- 

3600« 

52051 

3610- 

3620« 

50651 

3630- 

3640« 

51118 

3650- 

3660« 

51442 

3670- 

3680« 

50274 

3690- 

3700» 

51872 

3710- 

3720« 

26872 

3730- 

3740« 

22843 

3750- 

3760« 

47826 

3770- 3780« 

22097 

3790- 

3800« 

24951 

$810- 3820« 

67427 

3830- 

3840« 

60295 

3850- 

3860« 

5373 

3870- 3880« 

4B3B9 

3890- 

3900« 

36910 

3910- 39201 

35485 

3930- 

3940« 

46504 

3950- 3960« 

15370 

3970- 

3980« 

586 

3990- 40001 

14308 

4010- 

4020« 

21974 

4030- 

4040« 

21335 

4050- 

4060« 

79956 

4070- 

4080« 

85149 

4090- 

4100« 

53552 

4110- 

4120« 

57961 

4130- 

4140« 

20108 

4150- 

4160« 

40419 

4170- 

4180« 

12462 

4190- 

4200« 

59516 

4210- 

4220« 

48576 

4230- 

4240« 

20499 

4250- 

4260« 

13072 

4270- 

4280« 

42453 

4290- 

4300« 

40171 

4310- 

4320« 

3497 

4330- 

4340« 

27076 

4350- 

4360« 

42959 

* 4370- 

4380« 

52549 

4390- 

4400« 

32289 

4410- 

44201116008 

4430- 

4440« 

85596 

4450- 

4460« 

35673 

4470- 

4480« 

33062 

4490- 

4500« 

40974 

4510- 

4520« 

55125 

4530- 

4540« 

99556 

4550- 

4560« 

93644 

4570- 

4580« 

99133 

4590- 4600« 

96697 

4610- 

4620« 

6573 

4630- 

4640« 

49693 

4650- 

4660« 

61151 

4670- 

4680« 

29203 

4690- 

47001 

34720 

4710- 

4720« 

70964 

4730- 

4740s 

56630 

4750- 

4760s 

64342 

4770- 

47B0s 

56522 

4790- 

4B00« 

55723 
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kleinanzeisen 


4810- 

4830- 

4850- 

4870- 

4B90— 

4910- 

4930— 

4950- 

4970- 

4990- 


48201 

48401 

48601 

4B80I 

49001 

4920t 

4940t 

49601 

49B0i 

5000t 


56637 

63444 

57923 

59065 

55359 

38639 

58015 

64074 

62055 

18386 


5010- 5020t 39725 
5030- 50401 13708 
5050- 5060t 61035 
5070- 50801 58280 
5090- 5100t 47543 


GESAHTCHECKBUMMEi 28566 


* Kleinanzeigen * 


Biete 

Hardware 


Commodor«*C-1ft/116*C’16/116 M 
Speichererweiterung 64 KByte Bau¬ 
satz mit allen benötigten Tellen * 
Schalter für 16 KByte - 64 KByte um¬ 
zuschalten und ausführlicher 
Bauanleitung für nur 49.50 DM (incl. 
Mwst.) per Nachnahme, Frank 
Schmitz, Kurzer Weg 1, 5206 Neun- 
Kirchen 2, Tel,: 02247/8111 ab 16 Uhr 

Floppy 1541 - Neuwertig (bis 
07.12.86 Garantie!) Für nur DM 
400,— abzugebenll Gerhard Fi¬ 
scher, Heinrichgasse 7, 7910 Neu- 
Ulm_ 

Merk. 15 VC-20 Module zum Preis pro 
Modul: 50,— DM. Spltzensplelel 
Ren6 CloBes, HohenkirchnerStr. 10, 
3501 Espenau 

W.A.W. Elektronik - Autorisierter 
Commodore Service, Tegeler Str. 2, 
1000 Berlin 28, Tel.: 030/40433 31 - 
Mo-Fr 10-18 h, Commodore Compu¬ 
ter, Zubehör, Ersatzteile: C-16 64 K- 
RAM-Erwelterung 69,—; Drucker 
CPA 80 X 798,—; Prologfc-Dos 
298,—; Disketten ab 13,95; Amlga 
Hard-+ Software: Speicheren«. 

198,—; Div. Softw._ 

•Hallol Original „FREEZE FRAME" - 
Das Super-Koplermodul für C-84, 
CBM 128/CBM 128D: Tota-Backup o. 
Flle-Copysvon 99,99%aller Softwa¬ 
re! - Kinderleichte Menü-Steue¬ 
rung. - Viele Tests (64er etc.) - 
Neueste Version Floppy-Speeder- 
Vartrögl. - Gleich bestellen: (Nur 
schlapp® 115,— Morl., NN + 3,50) 
Bei: ‘Astro, Pf. 1330, 35D2 Vellmar ^ 

Varkaufe C-116 mit Datasette/Joy- 
stick/Netzteil u. Bücher/ca. 30 
Spiele z.b. Wintergames, Formal 1, 
Legionär, auch einzeln abzugeben. 
Preis zusammen 250 DM. 

Tel.: 06834/54510 _ 

•Das ist das Letzte f. den 64er* Orig. 
.The Final Cartridge": Superbetr.sy- 
stem f.d. Userport. Speeder, Moni¬ 
tor, Freezer, Tools. Das absolute 
MuB-Modulll - Durch Direkt-Import 
jetzt nur noch 125 DM (Vorkasse, 
NN+3m50) - Achtet auf unsere An¬ 
gebote: Jetzt und demnächst. 

-ASTRO*. Pf. 1330, 3502 Vellmar** 


Nferkaufe Commodore-PC 1280 
(noch neuwertig) mit Drucker-Inter¬ 
face (Cöntronfcs-Schnittstelle). 
Reisenzein, Wilhelm, A-9772 Del- 
_ 9l.: 04714/246 

C-16 u. C-116 je mit Datasette u. Ba- 
sic-K, Textverarb, Dateiverwaltung 

u. Spielen für je DM 150,- zu verkauf. 
A. Lummerich, Tel.: 05206/5052 
nach 16.00 Uhr 


*Jaa da staun Ich aberheftigll* 
für 


Das 


Super-Spar-Modulpaket 
Commodore-Freakl - Supercopy- 
modul „FREEZE-FRAME" und Mo¬ 
dul triebssystem .The Final Car¬ 
tridge" - 2 Module zusammen zum 
.NICHT-ZU-GLAUSEN-PREJS“: nur 
230,- DM (Vork. od. 3,50) - 
gleich bestellen - Vergleicht doch 
mall -ASTRO, Postfach 1330, 3502 
Vellmar** 

xxxxx Zu verschenken! xxxxx 
Habe Ich leider nichts, aber C-64 + 
1541 + Abdeckh. + Dfskarchi +10 Di. 
m. Top-Games umsonst dazu billig 
anzugeben - VB 780,- DM 
Tel.: 08095/1561 _ 

C-116 + 64K + SchrelbmaBchinen- 
tastatu r Incl. 10-er Block + Datasette 
für 250 DM - Tel.: 07071/52305 

-Eiikuckedaah: Der 64er lernt se- 
henll MFB-Super-Video-Digitlzer 
.VIDEO 1000". (2,3, 4 fbg./graustu- 
fen), 384x288 Bildpunkte (I), Digl- 
Zeit: 0,02 Sek./Bild, Einfachste Be¬ 
dienung! - Interface u. Software zus. 
nur 250 DM (Vork. o. NN: + 3,50) - 
Jetzt aber gleich bestellen bei... 
-ASTRO, Pf. 1330,3502 Vallmar** 

*Achtung*Commodore*Achtung* 
Verkaufe MPS 801 leicht repatatur- 
bedürftig! +100 Blatt Papier- Preis: 
VB - Eiltl 

•Commodore 16/116 Plus 4* 
Programme: Klondike, codlal, Mr. 
Muesll, Boerse 1, Kassette nur 
8,— DMIII Auch Listlngsl 
Tel.: 08432/1258 ab 17.00 Uhr 
*Achtung*Commodore*Achtung* 

Zu wenig Zeit dafür, deshalb C-16 
billig zu verkaufenI Ca. 5 Monate alt 
mit 64K-Speichererweiterung, dazu 
Datasette, Staubschutzhaube, Joy¬ 
stick-Adapter, Basic-Lemkurs (Kas¬ 
sette + Buch), diverse Spiele - alles 
Originalverpackt für sage und 
schreibe DM 150,—III - Wilfried 
Steinhof, Breymamnnstr. 11, 3400 
Göttingen. Tel.: 0551/76868 ab 18 h 


- C-16 & 116 & PLUS 4 - Club ** 

Wer möchte einsteigen? Info gratis 
bei: Torben Soffa, Asperheide 43, 
4902 Bad Salzuflen 5 

Funkamateur sucht dringend Kon¬ 
takt zu Funkamateuren, die den C-16 
benutzen. Bin interessiert an Erfah¬ 
rungsaustausch u. Programmen 
(Ritty, CW, Mailbox. Ecc.) Bitte mel¬ 
det Euch. Bin für jeden Tip sehr 
dankbar (auch C-116 ,+Plus4-Be- 
nutzer). 

Karl Ungericht, Vögelebicr.l 26 
A-6020 Innsbruck_ 

Vereinsamter CPC-Freak sucht 
Gleichgesinnte(n) in München. Bitte 
schreibt an: P Grubmair, Milberts- 
hofener Str. 30, 8000 München 40 

•Dum-Dum-Dideldum... - Mensch, 
lstder64ermuslkalisch: (Orig. SFX) 
Musfc-Maker (Disk) 89,50; Sound- 
Sampler (Modul+Disk) 239,— DM; 
Sound-Expander (CDX 7-Sound 
oder 64er wird zum Super-Synthle 
(Modul+Disk) 349,— DM; gleich 
bestellen! (Mark, oder NN+3,50 DM) 
-ASTRO, Pf. 133, 3502 Nfellmar** 

—C-16—C-16—C-16—C-16*“ 
60671 Byte frei, nur 67,— DM. User- 
Port Modul nur 45,— DM. Dazu Soft¬ 
ware für Centronics. RS-232- 
Schnlttstelle. Kassetten-Köpiermo- 
dul. Info von Fa. Willi KeBler, -elektro- 
nik-, Ruprechtstr. 14, 6736 Edes- 
helm, Tel. 06323 / 7114 (nach 16 h) 

•BrennBrenn, Britzei: Epromhlts* 
Golitath Im-byte-Eprom-Karte 
(REX) 134,50 DM * 64K-Eprommer, 
passend dazu: Brennt 1 KB in 1 
Sek.(l), liest Steckmodule einl Nur 
275 DM. - 256K-Eprom karte: 90 DM 

- passender 32K-Eprommer + Text¬ 

tool + Gehäuse 138 DM1 (Alles Vor¬ 
kasse o. NN+3,50 DM) - gleich be¬ 
stellen: —ASTRO, Postfach 1330, 
3502 Vellmar**_ 

C-16 Speichererweiterung, Schalt¬ 
plan « DM 5,—; je Speicherelement 
= DM 18,—; je Fassung = DM 0,80; 
Speichererweiterung kompl. einge¬ 
baut DM 60,—. Computer ohne Zu¬ 
behör einschicken. Alle Teile und 
Arbeiten nur gegen Vorkasse. Kein 
Porto! P. Schultz, Steenmoor 8, 
2000 Hamburg 70 - Bausatz kompl. 
DM 45,-1_ 

- TOP C-16 Hardware. 

Verkaufe C-16 (64KByte) Incl.: Data¬ 
sette, Joystick, Handbuch, BasiC- 
lemkassette, Turbotape, Spiele 
(Spectipede, Space, Invader, Hero, 
u.a.), Anwenderprogramme, Zeit¬ 
schriften (Listfngs) und Computer 
mit AbolM Preis: 450 DM 

Tel.: 0591/5992 Mo-Fr: 17-21 Uhr 

Verkaufe VC 20 u. viel Zubehör: z.B. 
Erweiterungen, Modul box, Spiel- 
module usw. Alles euch einzeln. 
Liste anfordem bei: R. Düren, Chri- 
stoporusweg 12, 3400 Göttingen 

Verkaufe C-116-Datasette (Garantie 
bis 4.1.87), Handbuch, Baslclem- 
kass.u. 16Spielefürnur170 DM. Bel: 
Christoph Furtkamp, 

Tel.: 02851/2511_ 

Achtung-Commodore 16-Achtung 
Verkaufe neuen Joystick für Com¬ 
modore 16 und 4 Spfelecassetten. 
Tel.: 0234/497396 


An VC-20 und Schneider Besitzerl 
Computer-Club sucht Mitglieder. In¬ 
formationen gegen Rückporto bei: 
A. Meier, Goethering 33 c, 

8504 Stein (Computertyp angebenl) 


* * * C-16/116/Plus4 * * * 

Suche und Tausche Software (auch 
64k). Suche auch Datasette 15311 
Helmut Plank, Öhiemnühle 21, 
A-3362 öhling / Österreich 

C-16 Anfänger - Suche Kontakte zu 
C-16 ProNs, die mir etwas beibrin- 
gen, Tips geben und Progr. für Spie¬ 
le schicken: Oliver Kehle, 

Sulzstr. 23, 7401 Pliezhausen 

* VC-20 • VC-20 * VC-20 * VC-20 * 
Suche billige 32K-Erweiterung 
(Dringend!). Tausche auBerdem 
Software für VC-20. Schickt bitte 
Eure Listen oder Angebote an: 
Andreas Wolf, Kombeckstr. 13, 
7440 Nürtingen 5 

* VC-20 * VC-20 * VC-20 * VC-20 * 

C-116 - Neu mit Speichererweite¬ 
rung, mit Datasette neu DM 198,—, 
Vlzawrite ModuaC-64 DM 150,—* VI- 
zawrite Classic mit Modul 128, Viza- 
Stra mit Modul für C-128, Commodo¬ 
re C-64 DM 30,—, Brother Typen¬ 
raddrucker HR-10 mit Centkonlc DM 
730,—, Magic Desk Textmodul DM 
49,—. - WOBA - Tel.: 040/861698 

- C-16 - zu verkaufen - C-16 - 
+ Plotter 1520 + Datasette + Joy + 
Topgames + Bücher + Hauben + 
evtl. 64K: Der Preis? VB 250: bitte 
schnell! 089/647734 - Matthias - 

+ Hardware C-16/116 Hardware + 
Floppy 1551 379,— 

Commodre Plus 4 239,— 

16K-Ram-Erweiterung 79,— 

64K-Ram-Erweiterung 109,— 
Farbmonitor Philips 549,— 

Drucker Star Gemini 578,— 
Preise Stand 09/86 + Versand 24 
Stunden Bestellservfce + Comp. 
Service, Pf. 1304, 7913 Senden 

+ Hardware C-64/C-128 + 

C-128 698,— 

C-128 D , 1398,— 

Floppy 1571 698,— 

Floppy 1570 548,— 

Citizen 120 D 648,— 

Abdeckhauve C-128 hart 16,90 
Bestellservice: Tel. 07307 6230, 
Softwarelfste auf Anfrage, Comp. 
Service, Pf. 1304,7913 Senden 


• Commodore Zubehör+++ 

++ 

Quickshot II 15,90 

QucikshotIV 19,90 

Competition Pro 35,— 

Joystickadapter für C-16 9,90 

Datencassetten C-1510 St. 15,90 

Abdeckhaube C-64/C-16 9,— 

Abdeckhaube Datasette 6,90 

Disketten 2D 15,90 

Comp.Service, Postfach 13 04, 

7913 Senden, Tel.:07307/6230 


Biete 

Software 
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kleinanzeigen 


+++ C-16/116+4 Software +++ 


Bomb Jack 24,90 

Frank Brunos Boxlng 24,90 

Yje are Kung Fü 24,90 

Winter Olympiade 24,90 

Superhits (6 Progr.) 27,90 

Projekt Nova 22,90 


European Games (4 Progr.) 22,90 
24 Str. Bestellservice 073076230 


Comp.Service, Postfach 1304,7913 
Senden 

C-16/116/+4 Anwenderprogramme 
Turpo Tape 15,90 

Gaphlc Designer 15,90 

Paint Box 19,90 

Muslc Master 22,90 

Turbo Text 22,90 

Turbo Base 22,90 

C-16 Utilities 27,90 

Preise Stand 09:86 zzgl. Versand - 
Comp.ServIce, Postfach 1304,7913 
Senden 


Verkaufe C-116 mit Datasette + Joy¬ 
stick + ca 20 Spiele z.B. Tutti Frutti, 
Vox usw. + Literatur für DM 180,— 
ohne Cass., DM 220,-- mit Casset- 
ten. Extra-Angebot: Verkaufe Spie¬ 
le: Flug Simulator Zero 15 DM 20,—, 
BMX Racers DM ß,— (Originale). 

D. Wiessner, GriesAckerstr. 18,78Ö3 
Gundelfingen, Tel.: 0761/582331 


C-16/116 - Suche einfache und 
schnelle Hardcopy-Routine als Un- 
terprogr. für Basic-Programm mit 
ausführlicher Anleitung (Citizen 120 
D) - Max Fuchs, Panoramastr. 8, 
7214 Zimmern 4 


C-16/116 Programmpaket 1 Extra! 

1) Sheriock’s Problem (Strateg.) 

2) Horse (Actionspiel) 

3) Catch lhe Mause (Actionspiel) 

4) Arrow Shootfng (Bogenschießen) 

5) Warship (Schiffeversenken) 
Preis: 8,90 DM + 1,10 DM Porto, Ue- 
ferung nur gegen Vorkaseel 
MULISOFT: Hubert MQhlbacher, 
Plattenberg 3,8221 Waging 


VC-64 Origlnalprogramme auf Disk 
Programmsorte, Termine, Warenbe¬ 
stand, Super 8 Datei, Tauschpart¬ 
ner, Das Riff, Telefon-Datei je 

24.80 DM; Rechnung/Liefersch./ 
Etikett 29,80 DM; Spider Hunt, 
Nachtangriff, Kaufmann, Disk-Etf- 
ketten ja H60 DM; Astray In Jungle 

14.80 DM; Schatzsuche (Abent.- 
Adv.) 19,80 DM. OLDI-Soft, Postfach 
1132, 2190 Cuxhaven 12 


Commodore C-16 “ 116 “ plus 4 
Hardcopy - Hardcopy - Hardcopy 
- druckt Ihre Bildschirmgrafik in max. 
60 Sek. auf ca. DIN A4 Größe aus. 
Für 16K und 64K Version geeignet. 
Als Kassette oder Diskette für nur 19 
DM + Porto per NN. bei: Frank 
Schmitz, Kurzer Weg 1, 5206 Neun- 
kijchen 2, Tel.: 02247/8111 

*Thomas-Soft Tsamadov 4 Athlna 
Greece Games Utilities C64 + 28 auf 
Disk und Tape write + and westen- 
dyonourlfst with Programms, je 
Prog. 14 DM, Turbo-Esrit Ghost'n 
Goblins Paper-Boy Alter Eco Road 
Runer Printshop Neewsroom und 
und und - Thomas Mouzakitie Pfitz- 
nerweg 4, 5650 Solingen _ 

C-16, C-116 Superspielei 
Info gegen Rückporto bei Hannes 
Kaltenbach, Prielmayerstr. 16, 7990 
Friedrichshafen 1 


C-16 C-116-Plus 4 - Suchen Slegute 
Programme. Ich habe siel Kamelrel- 
ten/Spielautomat Dallas/Roulette/ 
Lebenserwartung u. Porno auf Kas¬ 
sette u. Diskette. Auf Kassette * 
25,— DM oder Diskette * 30,—DM, 
6 Prg., Super IQ-Test nur Plus 4 oder 
64K-Erwelterupg 10,— DM + 2,— 
DM Porto. Hasen, 2800 Bremen 21, 
Ritterhuderstr. 55 


" Original Elite plus V1.0 “ 
Fantastische neue Programmier¬ 
sprache für strukturiertes Program¬ 
mieren auf Ihrem PLUS/4/C-16, C- 
116, (64 KB) - 29,— DM mit ausf. 
Handbuch, incl. Porot & Vsrp. - Info 
gegen Rp. bei TEDsoft, Bohlinger- 
straße 2, 7700 Singen 


Verkaufe Programme für C-16/116, 
Snake u. Racer-Geschickspiele, 
Wortraten u. Hubschraubersimulat. 
Kniffei u. Flugsimulator. Pro Cass.■ 
2 Spiele-DM 8,— 

Videothek, Dateiverw., Zeich- 
nungspr. u. Haushalt — 4 Program¬ 
me, DM 15,— auf Cass. - Nur Nach¬ 
nahme! Ralf Steinhauer, Damasch- 
kestr. 42, 56230 Remscheid 

- C-16/116 “ Software f. den Kauf¬ 
mann, Systemsoftware. Info geg. 
Freiumschlag (80 Pf) bei A. Lämme- 
ruahl, Saarstr. 85,4100 Duisburg 17, 
Tel.: 02136/13994 


+ C-16/116/+4 Hardware/Zubehör+ 


Monitor Philips 6500 548,— 

Plus 4 198,— 

Roppy 1551 379,— 

Joystickadapter 9,90 

Abdeckhauben ab 6,90 

Cassetten C1510 Stck. 15,90 

16K-Ram-Erwefterung 79,— 


Angebote auch für andere Systeme. 
Comp. Service, Postfach 13 04,7913 
Senden 


Achtung! Achtungl -TI-99/4a Besit¬ 
zer sucht Joystick-Adapter. Zahle 
gutl suche auch Tl-Exented-Basic. 
Dringend! Auch spiele gesuchtl 
Schreibt mir bitte! Wichtig Hl 
Jörn Kühlbom, Am Koppstück 2 b, 
4630 Bochum 7 


Verkaufe die C-16 Games Hamurabl, 
Turbo-Racer, Rom, Minor-Jumper, 
SDI, Jumpl für 10,—DM. Briefe mit 10 
Mark-Schein an Thorsten Laske, Am 
Wasserwerk 11,4532 Mettingen 

C-161 Verkaufe meine Original^Kas- 
setten zum halben Preis. Auch ganz 
neue z.B. Monty on Run, Bomb Jack, 
Wimbledon usw. Basic Programme,. 
1,50 DM pro Stck.: Tel.: 02153/8116 

- Grüffkprogramm e - 

fürC-64 mit Simons’ Basic und C-16 
Grafik-Demos mit ausführl. Erklä¬ 
rungen und vielfältigen Anwen¬ 
dungsbeispielen. Außerdem tolle 
Grafiken verschiedener Art u.v.m.l 
Auch auf Disk! Infos gegen Rück¬ 
porto! Info mit Cassette: 3,60 DM 
(BriefmJ. B. Jakob, Kehl 4, 8832 
Welßenburg 1 


Punktgetreue Grafikhardcopy auf 7- 
Nadeldruckem für +4 u. erw. C-16. 
Ihre Computergrafik wird mit 
200x320 Punkten ausgedruckt und 
auf ca. DIN A4 vergrößert Auf Dlsc 
nur DM 22,70. Info gegen DM 2,—in 
Briefm. von H. Spackner, Rabbolt- 
straße 5, 4600 Dortmund 13 


Nebenverdienst für CPC-Anwender 
Das beste Biorhythmusprogramm 
plus Partnerschaftsanalyse. Bei 
Druckerbetr. ca. 8 DIN A 4 Seiten pro 
Monat + Grafik, sehr ausführliche 
Hinweise und Informationen für jo¬ 
den Tag. Ein TOP-Softwarepaket 
daß bereits erfolgreich auf kleinen 
Messen und Märkten Anwendung 
fand. Progr. (70K) Disk. DM 40,—, 
Kass. DM 30,—. Ralph Hilterscheid, 
Lufwfg-Rosenberg-Ring 47, 2050 
Hamburg-80, Tel.: 040/7211974 

* Astreinl * Orig. „Freeze Frame 1 “ 
Das Supermodul für C-64 & Eng¬ 
land! (Test: 64er/9,s. 164 U. ASM Nr. 
6) Kopiert 99.99% aller Software, 
menügesteuert auf Tape o. Diskl Pg- 
me. laufen dann auch o. Modul. Dir.- 
Import: schleppe 119,— DM! Neu: 
läuft auch m. R.-Speederl Sof. be¬ 
stellen: NN+ 3,50 o. Vork. “ASTRO, 
Postfach 1330,3502 Vellmar“ 


•OHOOrTHE RNAL CARTRIDGEIIt* 
Modul-Betr.-System für C-64: Flop¬ 
py u. Tape -Turbo, Centr.-Interface, 
Hardcopies, +24K-RAM f. Basic, 
Toolkit, Funktionstasten, Reset, 
Masch.-Monitor, Copy-Modul, und 
... und ... * Dir.-Import, alberne 125 
DMI Sof. bestellen: NN+3,50 od. 
Vork. Weitere Hammer-Angebote 
folgen. “ASTRO, Postfach 1330, 
3502 Vellmar“ 


BES FOR CPC * BES FOR CPC 
Ich biete die neueste Supersoftware 
zu SpitzenpreisenI Liste anfordeml 
Lutz Beyert * EDV-Service, Pf. 1159, 
4030 Ratingen 1 (Auch für C-16, 
C- 64/128 u.a. gegen 1,10 DM 
Rückporto.) 


C-16/116 Zeichen- u. Grafikpro¬ 
gramme für die 16K und 64K Version. 
Zeichenprogramme für technische 
Zeichnungen. CAD Basissystem. 
Info gegen Porto bei: M. Rätzel, Ul- 
venbergstr 6, D-6100 Darmstadt 13 

C-16/Plus 4 orig. Programme zum 
halben Neupreis zu verk.: Winter 
Olympics, Right Sim. 015, Kingsoft 
Plus Paket 16, Olyplad, Turbo Tape, 
C-64er SH. 3/86. Tausche auch: 
Tel.: 0931/44660 


Plus 4 Spitzenprogramme gesucht, 
mögt. Disk. Tausche auch. Ange¬ 
bote bitte an Lutz Eiding, Burkarder 
Straße 16, 8700 Würzburg. 

Tel.: 0931/ 44660 


Varkaufe/Tausche Software für 
Commodore C-64; Kassetten. An¬ 
fragen an Hannes Peters, A-5582 St. 
Mlchael/LG. 213 


Suche billigen Drucker fürC-64; Ko¬ 
sten: höchstens 100 DM. An Hannes 
Peters, A-5582 St. Michael/LG. 213. 


Verkaufe Atari TV Spiel 2600 mit Joy¬ 
stick + 2 Kassetten. Anfragen am 
Hannes Peters, A-5582 St. Michael/ 
LG. 213_ 

German Software Service 
Wie bieten Supersoftware fürdenC- 
16: Invasion USA (35 DM), Rambo 
Rrst Blood Part II (35 DM), Wär Ga¬ 
mes (35 DM) u.v.a. - Information: 
Frank Schmitz, Wagnerstr 12 a, 
4270 Dorsten 1 


C-16/116 Software 
Für nur 20 DM als Schein, Scheck 
oder per Nachnahme erhalten Sie 
20 Spiel- und Anwendungspro¬ 
gramme (keine Raubkopien). Liste 
80 Pf. Rückporte. Scheck, Schein 
oder Briefmarke bitte an Daniel 
Breitllch, Kleine Höllbergstr. 6, 
6000 Frankfurt 50. Der Versand der 
Kassette erfolgt umgehend._ 

+ C-64 VC-20 PC-128 C-64 VC-20 + 
JOKER - Das C-64 + PC-128 Tele- 
magazln. Senden Sie uns 8 DM, den 
Datenträger (Kass./D!sk.) und einen 
mit 2 DM frankierten Rückumschlag 
und Sie erhalten in 7 Tagen .JOKER 
Nr. r - VC-20 Softwareliste für 50 Pf. 
C-64 + PC-128 Scherzadvendure 
Advenia (Info für 50 Pf.) Kass./Disk.: 
20 DM - M. Platt, C-Orff-Str. 4, 
8721 Hambach 


“ Farbfemseh-Fehlersuche *• 
Schneider CPC 464 
Selbstgeschrieben ca. 30 kB. Es 
werden zu jedem Fehler die versch. 
Ursachen ausgegeben; Kass. oder 
Disc 3" 20,— DM. Scheck oder 
Schein senden an: H. Sporrer, 
Jakob-Mayerstr. 20, 6754 Otter¬ 
berg/Pfalz__ 

Zu verkaufen: 64K-Erweiterung für 
Commodore C-16 (Einbau ohne Lö¬ 
ten) und Turbo-Tape (8x schneller 
Laden und Sichäm) - zusammen für 
150,-- DM. M. Friedrichs, Klosterhof 
10, 2223 Meldorf, Tel. 04832/2894 

Verk. Spiele: C-16 ICKdp.Kompl. 
10Q DM, Grafik Designer, Turbo-Ta¬ 
pe, Bigmac, Reich, Rockman, Tutti- 
Frutti, Robln rescue, Commando. 

S. Mars, Fuchsbau 41,3101 Lachen¬ 
dorf 


*DudeljÖhl*Super-Sparangebott* 

2 SpHzenmodule f. C-64: Orig. 
FREEZE-FRAME + The Final Car¬ 
tridge beides jew. neueste Version, 
- zum unglaublichen „Jatzt-aber- 
gleich-b as tellen-Prals“: Nur 230 
DM (zusammen) NN+3,50 oder 
Vork. - Drunter gehts kaum noch. 
Weitere Hammer-Angebote in Kür¬ 
zel “ASTRO, Postfach 1330, 3502 
Vellmar“ 


* Schneider CPC 464/664/6128 * 
Zum Unkostenpreis von 10 DM er¬ 
halten Sie 3 Berechnungsprogram¬ 
me von Kredit, Aktien u. Verzinsung 
auf Tape incl. Versand. Nur gegen 
Vorkasse brieflich bei Harald Bartz, 
Ewaldstr. 1, 4100 Duisburg 14. 
Programme aus Eigenproduktionlll 
Suche gute Spiele auf Tape + DD11 


C-64, C-128, C-16/116 & VC-20 
Spielepakete, Text, Adress, YSI, Ta- 
bello, Kartei, Rbu, EK-VK, Termin La¬ 
ger, Video, Lotto, Digitala, Denhen, 
Schule, Blblo, KFZ, Handbücher 
etc. ab 9,90 DM. Katalog gegen 80 
Pf.-Briefmarke. Computerservice 
T. Hofstede, A. d. Windmühle 6, 
5019 Bergheim 5 

Software für Lemprogramme u. Ver¬ 
haltenstraining. Von Pädag. u. Psy¬ 
chologen entwickelt. Wir erstellen 
Ihnen auch Programme nach 
Wünscht Liste anfordern für Schnei¬ 
der (Kass.u. Disk) bei: Dr. B. Kolb, 
Bergstr. 34, 6900 Heidelberg, 

Tel.: 06221/474711 
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Name: - 
StraBe: 


Bewerbung als Proarammautor 

— — - Vorname: — __ 


Alter:. 


Wohnort:. 


Titel des Programmes:. 


Computersystem: 


Erforderlicher Speicherplatz: 
Erforderliche Peripherie: 


KBytes 


Ich versichere hiermit, daB Ich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ich bin damit einverstanden, daß Sie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite. 
Sollte aas Programm nicht veröffentlicht werden, bitteich um Rücksendung meiner Untertagen. Sollte mein Programm in der Zwischenzeit 
von anderer Seite erworben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daB ich 
Kenntnis davon habe, daß der Tlronic-Vertag gegen Personen, die Programmeeinschicken, deren Urheberrechte sie nicht besitzen, rechtli¬ 
che Schritte einieitet 

Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): __ 

Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: 


. Diskette: 


Dokumentation: . 


Listing:. 


. Rückporto: 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 
Einsenden an: Tronic-Vertag Abt Programmentwicklung, Am Stad, 3440 Eschwege 


(Bitte zweimal unterschreiben!) 


★ Kleinanzeigen 

★ Kleinanzeigen ★ 

Kleinanzeigen ir 

Auftrag für Gelegenheitsanzeigen in 

m M _ .. Name und Adresse 

„Compute mit.. .“ 

im „bumpuie mu ..r 
Tronic-Veriag 




Postfach 




3440 Eschwege 

Unter der Rubrik „Kleinanzeigen 
veröffentlichen wir Gelegenheits¬ 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon¬ 
taktaufnahme bzw. Erfahrungs¬ 
austausch usw. 

Unterschrift 

Ich wünsche folgenden Text zu veröffentlichen: 

1 1 1 1 M 1 1 1 1 I 1 | .. 

Datum 

1 1 II 1 1 | 

Milt 

U 1 1 1 1 1 M 1 M l | | | i i i i 

II 1 II 1 1 

llllt 

Ulli II 1 M M i i 1 1 1 l 1 1 

1 1 1 II 1 1 

m r j i 

Unser Preis für „Kleinanzeigen“: 
Private Kleinanzeigen 

bis 5 Zeilen nur DM 5,- DM 
bis 10 Zeilen nur DM 10,-DM 

Jede gewerbliche Gelegenheits¬ 

U_J_L 1 M i 1 1 II 1 | M 1 II 1 

1 1 l l i l r 

11111 

U-LLLLI 1 M M M 1 1 I 1 I I 

1111111 

-L—1—1—1_1 

J 1 1 1 I 5 »- 

1 1 1 1 M-M II 1 1 1 II 1 1 1 1 1 

11111 m 

1 II 1 1 

anzeige 

bis 10 Zeilen nur 15,-DM 1 

(dürfen nicht unter Chiffre er¬ 

LU 1 1 1 M 1 1 1 II | | | | M i 

11 m 111 

II 1 1 1 

U. 1 1 1 1 1 1.. i | || LL 

M 111 M 

1 1 1 1 1 

scheinen) 

Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 

LU 1 1 1 1 1 M M I | | | | | i i 

M 1 1 1 1 1 

IMII 

luli i i m i i i i i i i i i i i i 

1 II 1 l 1 l 

i i i i ilO,- 

Kleinanzeigen jetzt 
noch preiswerter 

o Biete Hardware o biete Software o suche 

Zutreffendes ankreuzen 

o Kontakte o Vtersch. 
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• VC-20 * VC-20 * VC-20 * 
Supersoftware fast geschenkt!!! 
Kein Programm kostet mehr als 3 
OM. Eine Liste gibt es gegen 80 Pf. in 

Briefmarken! Schreibt noch heute 
an SF-Soft, Sven Fauthaber, Müh¬ 
lenweg 7,3401 Seulingen. Unser Ll- 
ste wurde neu überarbeitet. 


• CPC * Topgamesl * CPC • 

Tausche Wahnsinnsgames! Wer? 
Rolf Eppfnger, jun. ( Fraunhofer¬ 
weg 4, 7440 Nürtlingen, 

Tel.: 07022/6763 - Tape/Dlsc 

• * * Achtung * ■ * 

ZX 81 Software 16K 

1. Frogger, 2. Bowling + Robort + 
Bingo, 3. Blackjack + Slot, 4. States 
und Capltals, 5. Stamp Collector. 
5 DM pro Kassette, nurlxhler, keine 
Raubkopten, Tel.: 07181/73733 

Schneider CPC 464 / 664 / 6126 
Preisgünstige Programme (Action, 
Denkspiele, Anwendungen) aus ET- 
genentwlcklung für jeden CPC- 
Computer von Schneider erhalten 
Sie bei Friedrich Neuper, Posftach 
72, 8473 Pfrefmd, Fordern Sie ein¬ 
fach das kostenlose Info an. Post- 
karte genügt. 


Ct 64I 500 Freie Progr. Aus USAI Pu- 
blic-Domafn-Software In engl. Spra¬ 
che (Massenweise Anwender-, 
Dienst-, Spiele u. Lemprogr.) gegen 
Kopiergebührvon nurl DM abzuge¬ 
ben; z.B. Termfnalprogramm, Co- 
mal, Mu8ic-Composer, Monitor, 
Fastcopy, Labelprint, Dfscdoctor. 
Katalog (5 DM) anfordem bei: 
TEXASOFT, Herthastr. 26, 

8000 München 19 


* VC-20 Software zu Mini-Prelsenl * 
Jetzt bei F. Segovlä, Nordwaldstr. 63, 
P-4407 Emsdetten, Infos gegen 
1,20 DMI Programme schon ab 2,— 
DMI Kein Schutt! Bis dannl_ 

15 Top Spiele für nur 10 DM; z.B. 
SOS, Viper, Horror, Frag Match. 
Tel.: 07761/4186; 19 bis 20 Uhr 

C64, CI 28, VC 20, C16/116 
Spiele, Termin, Lager, Ffbu, EK-VK, 
Lotto, Adress, Tabello, Foto-, Rim-, 
Video-, Musikarchiv, Dlgitalo, Denk¬ 
training, YSI, Kartei, Biblo, KFZ, 
Handbücher, ab 9,90 DM. 

Katalog gegen 80 Pf-Marke 
Computerservice T. Hofstede, 

An der Windmühle 8,5010 Bergheim 

C-16 Software 

20 verschiedene Spiel- u. Anwen¬ 
derprogramme (keine Raubkopien) 
für zusammen 20 DM. Schein an: D. 
Breftlfch, Kl. HOIIbergstr. 6, 

6000 Frankfurt 50 


LOTTO-STATISTIK 6 AUS 49 für 
CPC’s. Alle Ziehungen seit 1955 
können fn 10 SEk. ausgewertet wer¬ 
den) Beliebig viele Bank- und/oder 
Auswahlzahlen. Für 464, 664 und 
6128! K. 45 DM; D3 H 58 DM; Scheck 
od. + NNI Super-Kritik im Schnei¬ 
der-Magazin 7/86, S. 28. 

Günter Blatt, WlesenstraBe 10, 

5509 Schillingen (Info 1 DM) 

Software für Allel 

(C-16 mit ißko. 64k und Plus 4 mit/ 
ohne Floppy) glbt‘s bat 
B. Lauen Handgasse 10 t 8700 Würz- 
burg, Gratiainfo gegen Rückporto. 


C64 PC128 VC20 C64 PC128 VC20 
VC20 Spilzenprogramme! Liste ge¬ 
gen 50 -Pf-Briefmarke. Auch 8k und 
16k. - C64 Scherzadventure w Adve- 
nia, die Frau die es zu bunt trieb", 
Kassete: 20 DM / Disk: 25 DM (vor¬ 
aus). -PC128 .Advenla128“ Disk: 25 
DM. Infos über das Topadventure 
„Advente“ für 50-Pf-Markl M. Platt, 
Carl Orff-Str. 4, 8721 Hambach 

„C-16/116/Plus4 H Spieleprogram¬ 
me, 17 + 4, Schiffeversenken, Las 
Vegas Spielautomat, Preis 10,— DM 
/ Programm. Scheck/Schein an: 

J. Schramme, Postfach 1631, 

3260 Rinteln 1 


C-16/116 mit Floppy - AufgepaBtl 
2 Super-Wirtschaftsspiele auf einer 
Diskette für nur 10 DM, fnsges. 
80KByte Software für 1-4 Spieler mit 
Anleitung u. ewig speicherbarem 
Spielstand. Lieferung erfolgt sofort. 
Einfach einen 10 DM-Schefn ln ei¬ 
nen Umschalg und abschicken an: 
Ralf Adling, Lingener StraBe 6, 
4576 Berge 


VC-64 Programme: 

Das Riff (AbenL-Adventure) 24,60 
War Games (3 Spiele) 14,60 

Programmsorte (Progr. sort.) 24,60 
Warenbestand o. Termin je 24,80 
Super 8 Datei o. Telefon-D. 24,80 
Rechnungen 29,80 

Rally; Spider Hunt; Comic: je 14,80 
und viele, viele mehr. Liste: DM 1,— 
bei: OLDI-SOFT, Postfach 1132, 
2190 Cuxhaven 12 


* Computer Herd- & Software * 
C-64, C-16, Atari, Schneider, MSX 


Alter Ego 69,— 

Herz von Afrika 56,— 

Hanse 48,— 

Spindlzzy 52,— 

Golf Con8tructlon Set 49,90 


Modem, Disketten und vieles mehr. 
Gesamtkatalog anfordem. 

H&S Werner Wohlfahrtstaetter, 
Postfach 301033, 4000 Düsseldorf 


C-64 Orig.: Disk: Nibelungen (65 
DM), Herz von A. (40 DM), Cass.: 
Winter Games, Tour de France, on 
Reld Foot, Int. Basketball, Wörid 
S. Basketball, On Court Tennis, Rac.- 
Dest.Set, Richard P. Rennzirkus, 
Hanse, Dragonriders of pem, Olng 
Rong, Fort Apocalypse, Show Jum¬ 
per, Speed King, Barry MCG.BoxIng, 
zu je 30 DM - Tel,: 069/76 4963 

+++ C-16/116/+ 4 Software +++ 


Yie Are Kung Fu 24,90 

Winter Olympiade / 24,90 

Projekt Nova 22,90 

Mercenary 25,90 

Mercenary II 17,90 

Frank Brunos Boxlng 24,90 

Bomb Jack 24,90 

A.C.E 29,— 

Comp. Service, Postfach 1304, 

7013 Senden 


688 C-16/116/+ 4 Software +++ 
Favourite 4 (4 Spiele) 27,90 

Plus Paket (4 Spiele) 30,~ 

Superhits (6 Spiele) 27,90 

Classics 1 (4 Spiele) 30,— 

Classics II (4 Spiele) 30,— 

Explodlng Rst 27,90 

Ghost and Gobllns 27,90 

Paper Boy 27,90 


Comp. Service, Postfach 1304, 
7013 Senden 


Sie haben einen C-64/128, C-16/ 
116/+4, Schneider CPC 464/664/ 
61287 Wir haben die Programme, 
das Zubehör, die Peripherie. 
Fordern Sie unseren Katalog ko¬ 
stenlos an, bei Fa. H.u.R. Hübben, 
5429 Marienfels. Bitte Computertyp 
angebenl Ca. 1ÜÜ0 Artikel zu Super¬ 
preisen lieferbar! Große Fach- 
buchauswahll 


+++ Software C-16/116/+ 4 +++ 
Robo Knlght - Street Olymplc - 
Dark Tower- Hektik-Golf-Sword 
of Destiny-Munch It-Water Grand 
Prix - Trizones - 3-D Time Trek - 
Autobahn - Runner- Shark- Tazz 
-Vox-Climblt-Shootlt-Hoplt- 
Alle Programme je nur 9,90 DM 
Computer Service: 

Tel.: 07307/6230 


Suche 


Suche preisgünstige Software für 
C-16. Tel.: 043 36 /2 59 ab 16.00 Uhr, 
Andreas Geers, Po de Barg 8, 
2372 Owschlag 


Suche billigen C-16 
Angebot an W. Beerbom, Oppenwe¬ 
he 352, 4995 Stemwede 3 


Verkaufe VC-20 + Epromer + Pro. 
VHB 100,— DM, Walter Beerbom, 
Oppenwehe 352,4995 Stemwede 3 


Suche Baslccode-Lader für den C- 
16/116 mit der Datasette. Wer hilft? 
Werner Vogt, Ringstr. 49, 

5409 Steinberg 


Skat-Programm gesucht, Basic oder 
6502 - Hinweise/Angebote an: 

H. Meier, Stettiner StrBe 11, 

5657 Haan 1, Tel.: 02129/6373 
(19 bis 22 Uhr) 


Suche Drucker u. Datasette / u.o. 
Floppy sowie Anwenderprogt. f. C- 
16, Compulemlt-Ausg. 5/86. Ang. 
an: Tel.: 09532/519 od. H. Herbst, 
Dippach 19,8617 Maroldswelsach 


Wer verkauft defekten Computer? 
(C-16/C-64/CPC oder andere). Bitte 

melden bet: Hubert Mühlbacher, 
Plattenberg 3,6221 Waging am See. 
Verkaufe auch C-16/116 Programme! 

Suche Anwendungs- u. Spielpro¬ 
gramme sowie Monitor für C-16. 
Hermann Kuper, Schlanestr. 4, 

4441 Spelle_ 

Suche defekte u. beschädigte C-16 
auch ohne Tastatur und Gehäuse. 
Angebote an: Theodor Landl, 
KaltersbergstraBe 45, 

8300 Landshut 


ATARI • ATARI • ATARI * ATARI 
Suche dringend TURBO TAPe für 
ATARI. Zahle gut. Suche auch 
Tauschgelegenhelten (Disk/Cass.) 
Fragt nach Felix: Tel.: 06222/53946 

Ich kaufe Commodore 64, möglichst 
nicht zu teuer, kann auch etwas ver¬ 
schrammt sein oder andere Fehler 
haben; von mirausauch nicht. Dan¬ 
ke! Alexander Avrambos, Parkstr. 16, 
4750 Unna 


Suche Datasette VC 1531, evtl. m. 
leichten Defekt, sowie C-16 Softwa¬ 
re. - Kontakte zu C-16rBeitzem im 
Raum PLZ 86-87. 

Tel.: 09532/519 


Suche günstige Software fürden C- 
116, suche ebenfalls günstigen 
Drucker für C-116. Angebote an: 
H.-J. Wienand, s’Heerenberger- 
straBe 41,4240 Emmerich 1_ 

VC-20/C-64 - Suche - 32Byte Erw. 
für VC-20 (80-100 DM), suche C-64 
nicht defekt (300 DM). 

Thomas Cosjc (Löper), Paderbor- 
nerstr. 25,4799 Borchen, 

Tel.: 05251/39600 


Suche Programm über Biorhythmik 
für C-16 64KByte - Berthold 
Nietschke, Ristedter Str. 54, 

2608 Syke-Gessel 


Wer hat günstig Software auf Kas¬ 
sette für uns? Auch selbstgeschrie¬ 
bene Programme! Besitzen einen C- 
16 mit 64K-Ram-Erweiterung. Mög¬ 
lichst Programme für die Schule etc. 
und Anwenderprogramme. Sendet 
Angebot und Information an: 
Daniela + Dahlia Schirmer, Fief- 
blöcken 1, 2354 Hohenwestedt 

Wer hat od. kann mir Vokabeltrainer 
für Französisch auf C-16 erstellen? 
CH. Civemi, Nachtigallenweg 6, 
6951 Schefflenz, Tel.: 062938745 


Kontakte 


Commodore 64 Club HUP 
Unser Club befaßt sich im Moment 
mit dem Commodore 64. Über jedes 
neue Clubmitglied, das mit einem 
anderem Computer arbeitet freuen 
wir uns. Jedes Mitglied erhält eine 
Clubzeichschrift mit Spielen, Tricks 
...In unserm Club werden zusam¬ 
men Programme ausgearbeitet und 
an alle Mitglieder verschickt. 

Bitte Prospekt artfordeml Über Inte¬ 
ressente aus dem Ausland freuen 
wir uns besonders. Da wir unwahr¬ 
scheinlich viel Korospondenzerhal- 
ten, bitte Rückporto beilegen - 
Dankei 

Computerclub HUP 
Brahmstraße 21 
Kennwort: „Prospekt“ 

4690 Heme 1 

RS.: Im Prospekt enthalten sind: 
Programme, Adressen, Informatio¬ 
nen und sonstiges Allerlei... 


xxx VC-20 xxx Club xxx 
Suche noch Mitglieder zum Tausch. 
Haben 800 Programme, kein Bei¬ 
trag. 

Bernd Steinmetz, Postfach 103631, 
3500 Kassel 


Hallo, C-16-Besitzer! Wertauscht mit 
mir im Umkreis Saarbrücken C-16- 
Software? 

Erik Herrmann, Hauptstraße 58 a, 
6601 Klarenthal_ 

C-16 Besitzer (29. J.) sucht Erfah¬ 
rungsaustausch mit Ebensolchen! 
Möchte auftretende Problemchen 
mit anderen schneller lösen u.. 
selbst Hilfe geben. 

Tel.: 0202/751723 
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Rennersoft-Computer-Distributum 

HARDWARE - SOFTWARE - PERIPHERIE 

COMPUTERSPIELE für 
Commondore CI 6 / 116+4 

z.B. Commando, Bomb-Jack, Airwolf, Legionaire, 
Frank Brunos Boxing, Schach, Atlantis usw. 

Liste M 1 anfordem! 

Telefonservice täglich von 19-22 Uhr 
Postfach 920 • D-4440 Rheine • Tel.05971/81592 


Verschiedenes 


• * * The ECS-System * * • 

18 looking for Freaks to swap 
Software, Hardware and Ideasl Hl 
Crackers, Contact uslll 
Postlagerkarte: A024013, 

5440 Mayen 


•"Größter C-16/116/P4 Club"* 
Bietet einen loHen Service u.a. 
Fachzeitschrift auf Datentriger. 
Informationen gegen 1,30 Porto. 
Hacker, Wingert 10,5440 Mayen 14 


\ferk C-116 + Dalasette + Joystick* 
27 Cass. f z.B. Yie Ar Kung Fu, Musik 
Master, Comando, Mr. Punlvers, usw. 

+ Basic KursCass. 4- Buch 4- mehre¬ 
re C-16/116 Sonderhelte 4- C-16 Tps 
4-Tricks für 400.— DM 
Dietmar Rew, Blücheretraße 11, 
4200 Oberhausen 1, T. 0208/27889 


***W.A.W. Elektronik*** 

Autorisierter Commodore Service, 
Tegeler Sir 2 , 10O0 Berlin 23, 

Tel.: 030/4043331 - Mo-FMO-10 h 
Commodore Computer, Zubehör, 
Ersatzteile: C-16 $4K-Ram-Erwelte- 
rung 69 DM; Drucker CRA 80 X 798 
DM; Prologlc-Dos 298 DM; Disket¬ 
ten ab 13,95 DM; Amlga Hard- u. 
Software; Speicheren*. 198 DM; Dlv. 
Software 


— Hallo CPC-BesItzerl— 

Ich tippe Ihre Programme f.2 Pfg. Je 
Zelte ab (4- Rückporto 2,50). Schlk- 
ken Sie 3 M Dlsk. l Llstfng u. Geld¬ 
schein (Rest wird perScheckerstat- 
tet). Auch Tausch v. 6128-Programm 
(Listen gegen 80 Rg.-Briefmarke). 
Marlies Klein, Flnsterheckstr. 22, 
6580 Idar-Oberstetn 1 


Computerfreak der knapp bei Kasse 
Ist, sucht Software. Bin zu gegenseU 
tigern Austausch bereit. Computer- 
typ: MXS. Nur Kassette - keine Dis¬ 
kette. MuB nicht Originalaplel, kann 
auch auf andere Kassette überspielt 
sein. Wer Interessiert Ist, schreibe 
an: Johann Döllen Jun., Kleinrei¬ 
chenbach 15, A-3900 Schwarzenau 


WANTEDIII 

Sotlwara -Autoren gesucht! 

System: C-16/C-74/PC-128/CPC 
Sendet Eure Progr. mit einer Bedie¬ 
nungsanleitung an: Lutz Bayarf, 
EDV-Servfc«, Postfach 1189, 

4030 Rednern 1 


* 016/116 REPARATUR-SERVICE * 
Repariere zu Tiefspreisen, nach Ito- 
stenvoranschlagl... und so wtrd’s 
gemacht] Defekten 016/116 In Ori- 
glnalKarton mit Kurzer Fehlerbe¬ 
schreibung und 5,— DM für Rück¬ 
porto an: 016/116 Service, 
Trimbser Weg 26, 5440 Mayen 14 

Verkaufe 2 Input Kassetten NR8/85 
9/65. Außerdem verkaufe Ich 61 
Spiele mit Turbp Tape für 064 zum 
Preis von 50 DM. Bitte schreibt an 
Harald u. Jürgen Guss, Quarnsted- 
teralr 12,2217 Kelllnghusen. 
Schickt bitte nur In Scheinen. 
Außerdem verkaufe Ich 016 Spiele 
-10 Sick, für 20 DM u. die neuesten 
Spiele aus der Sonderausgabe. 

DfO - Suche Kontakt zu DFÜ-Nutzer. 
Bitte teilt mir Eure Erfahrungen mit 
Ich habe vor, mich auch DFU-mAßig 
zu betätigen. Dankei 
Czlchowskl, B.. Uferetr. 31, 

5170 Jülich 


Das nächste Heft 
erscheint am 17.11.1986 
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♦ C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * 
WUSSTEN SIE, DASS ES SOVIELE SUPER-SPORTSPIELE FUER DEN C-16 GIBT? 


WINTER OLYMPIADE 29,95 

FRANK BRUNOS BOXING 29,95 
INTERNATIONAL KARATE 24,95 
STREET OLYMPICS 9,95 

YIAARKUNGFU 33,95 

WORLD SERIES BASEBALL 27,95 
GOLF 9,95 

WORLD CUP 18,95 


LAWN TENNIS 34,95 

WORLD CUP CARNIVAL 39,95 

WINTER OLYMPICS 29,95 

GRANDMASTER (SCHACH) 24,95 

THAI BOXING 18,95 

DALEY THOMPSONS STAR EVENTS 19,95 
KUNG FU KID 27,95 

WIMBLEDON 29,95 


WUSSTEN SIE, DASS MAN MIT EINEM C-16 MEHR ALS NUR SPIELEN KANN? 


MICRO TEXT 

29,75 

KURVENDISKUSSION (+16k) 

19,95 

TURBO TAPE 

22,75 

GRAFIK DESIGNER 

19,95 

UTILITY 

34,95 

TONKOPFJUSTIERUNG DATASETTE 

29,95 

VOKABEL 

34,95 

HOME OFFICE 

39,95 

MICRO DATEI 

29,75 

MUSIC MASTER 

29,95 


BEI UNS IST DAS BESTELLEN GANZ EINFACH. AH HUFS! ODER POSTKARTE QENÜOT. 


UPEN i 

WIR LIEFERN DIE WARE FREI HAUS. ALSO OHNE ZUSÄTZLICHE PORTOKOSTEN ODER 
NACHNAHMEGEBÜHREN. KEINE MINDESTBESTELLMENQEN. 

VERSANDHANDEL R.UNDENSCHMIDT, SCHULSTR. 14, 4972 LÖHNE 2, TEL. 05732-72849 (FRAU LIPKOWSKI) 
WIR FÜHREN SELBSTVERSTÄNDLICH NOCH VIEL MEHR SOFTWARE FÜR DEN C-161 (ÜBER 140 SPITZENPROGRAMME) 
AUCH AUF DISKETTEN! FORDERT UNSERE KOSTENLOSEN INFOS ANIM!! 

* C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * 
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PHILIPS NEUE MEDIEN — 



Der neue Philips Familien- 
Computer Damit man bei der 
Arbeit den Spaß nicht verliert. 


D er neue Philips Familien*Computer wird durchaus auch 
den lustigen Seiten des Lebens gerecht Neben seinen 
täglichen Pflichten wie Tfextverarbeilung, Adressen-/ 
Datenverarbeitung und dem Bearbeiten von Statistiken, 
Bilanzen etc. reizt z. B. ein hochentwickeltes Grafikprogramm 
dazu, auch mal den Künstler in Ihnen zu wecken. Und seine vielen 
Spiel- und Lemprogramme sind allemal abendfüllend. 

Aber dieser Philips Familien-Computer VG 8235 mit dem ein¬ 
gebauten Diskettenlaufwerk ist außerdem Herzstück der Philips 
Neue Medien Systeme,dem Zusammenschluß von Computer und 
Elementen aus den Bereichen derTelekommunikation und.der Un¬ 
terhaltungselektronik. Übrigens - mit dem VG 8235 verstehen Sie 
sich, ohne erst das „Computern“ erlernen zu müssen: Sie nutzen 
einfach seine Funktionen. Mehr darüber von Philips GmbH, 
Geschäftsbereich Neue Medien, Postfach 101420,2000 Hamburg 1. 


Geeignet für CP/M 3.0. 



•y Philips paßt 
in unsere Zukunft 
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